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-TITLE VAXSEMULATE_FP = Emulate floating-point instructions 
“IDENT V04=000/ is 


i seeneeeeeenereeesereueeneereeeneeeenenntetennetsetecesensneenenseeeeesttess 


COPYRIGHT (c) 1978, 1980, 1982, 1984 8B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL SIGHTS RESERVED. 


® 
sd 
® 
® 
tt 
THIS SOFTWARE. IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH. LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
wt 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
CORPORATION. . 
® 
*® 
® 
® 
® 
* 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


. * . *. - . * 
* Paras Parery Para Para Porars Paras * 


jeeneeeeeneeeeeeereeceeeereeneseenenneteneneeeeeennneeeneneeeeenesteneneanes 
++ 

; FACILITY: VMS Executive floating point emulation 

; ABSTRACT: 


Loadable code that emulates F, 0, G and H nyeetine snetrent tens on 
any processor. Octaword integer emulation is includ 


: ENVIRONMENT: Runs at any access mode, AST Reentrant 

: AUTHOR: Steven B. Lionel, 22-March-1983 

: Emulation code based on LIBSEMULATE by Derek Zave. 

> MODIFIED BY: 

; Jcw1010 C. Wiener 21-Aug-1984 

: Added a missing fhe "REG. RI(FP) instruction to the POLYF emulation. 
: RNGOOO9 Rod N. Gamache 14-Aug-1984 

3 Only require a Pl control region on exceptions if the exception 
3 did not occur in kernel mode (i.e. we have to switch stacks), in 
3 the routine VAXSOPCDEC. 

: Jcw1008 dof trey C. Wiener ave 19 

: Corrected ms nstruction in MULTIPLY VOrhy - ft had referred 
; to FRACTION1* (FP). It should have been FRACTION1+12(FP) 


LJK0025 Lawrence J. Kenah 8-Mar-1984 


NAME AR @ CO OD NAUE WIN O OD NAME WN 9 ODNAU EWN O OONO MSW OVOOVNOU Pwr 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
é 
2 
é 
2 
: 
; 
3 
3 
3 
3 
3 
3 
3 
3 
3 
4 
4 
& 
4 
4 
4 
4 
4 
4 
4 
5 
5 
5 
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Change PRVMOD field in PSL that is in effect while emulator is 
executing so that PROBEs work with correct access mode when the 
emulator is used in exec or pupararent mode. Fix incorrect 
register usage in READ_FAUL 


LJK0015 Lawrence J. Kenah 2-F eb-1984 
Fix error destinations for inaccessible instruction stream or 
exception stack. Use G* addressing for SYS.STB symbols. 


Jcwi005 Jef irey C. Wiener 11-January-1984 

Corrected the discription of the algorithm used to divide unsigned 
multiple Length integers. A fix was also added to the associated 
code to fix an noutstanding DIVG/DIVH bug. The fix checks a@ ‘'carry- 
over’. If the “carry-over” is negative, then the ‘‘carry-over'’ is 
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v04-0 “S$ 
di 


zeroed. 

$BL1004 Steven B. Lionel 19=0c tober-1983 
Fix FLOAT_LONG to property convert -2**32, 

$B1.1003 Steven B. Lionel 24-June-1983 
Correct ‘‘emulated opcode’’ check for 2-byte opcodes. 
$BL1002 Steven B. Lionel 23-May-1983 

Add check for no ot region. 


$BL1001 Steven B. Lionel 22-March-1983 
Adapt LIBSEMULATE ter integration into the VMS executive. 


SOOQCOCOCOOCOCOCOCOCOCOCOOOOCOOCOOOOOOOoOOo 
SOOOSCOCSOOCOOCOOCOSOSOOCOOOCOOOSOOOOOOOOoOO 
COoOoOoCoooooooooooooooooooooooo 
ew ee ww lw lw lolol ola leolelololeoleoleoleleloleolelololola) 
090909 090909 SII NINN NN NSN NINO AAA AAAAOOOUM 
MEWS OONOAUEWN -OOONOULSWwr—-O0Oe 
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v04-000 DECLARATIONS hei “SEP-1984 bb 23:82 LEMULAT. SREJF EMULATE MAR: 1 . 3) 
209 -SBTTL DECLARATIONS 
900 3 ; LIBRARY MACRO CALLS: 
44 91 SSSDEF ; System Status Codes 
8 0 38 SPSLDEF ; Processor Status Longword definitions 
000 9 SPRDEF ; Processor register definitions 
0000 96 SARCDEF ; Architecture support flag definitions 
0000 95 
0000 96 ; 
44 4 ; EXTERNAL DECLARATIONS: 
$600 a -DSABL GBL ; Force all external symbols to be declared 
0000 100 sEXTRN EXESSRCHANDLER ; System routine that looks for handlers 
0000 101 ~-EXTRN EXESUNWIND ; Unwind exception 
0000 106 eEXTRN EXESOPCD :; VMS entry to handle SS$_OPCDEC 
0000 10 ~-EXTRN EXESACVIOLAT ; VMS entry to handle SS$_ACCVIO 
0000 104 ~-EXTRN EXESGL_ARCHFLAG ; Architecture support flags 
0000 105 ~-EXTRN CTLSAL_STACK 3 Stack Limit arrays 
0000 106 -EXTRN CTLSAL_STACKLIM ; Stack Limit arrays 
0000 107 
0000 108 ; 
0000 109 ; MACROS: 
0000 110; 
0000 111 
0000 M6 : Macro for Com or ing Condition Codes 
0000 11 «MACRO CMPCOND COND,LOC 
0000 114 CMPZV = #3, #26, LOC ,#CONDa-3 
0000 115 ‘ 
0000 116 
0000 117; Macro for Leasing OP_TYPES with the t ae? of the various operands . 
0000 118 «MACRO SET_OP_TYPES OP1=F ,OP2=F ,OP5=F ,OP4=F ,OP5=F ,OP6= 
0000 119 -NARG = N_ARGS 
0000 120 4 |; EG N_ARGS-6 3.6 erguments? 
0000 121 MOVW #<TYP_'OPS'+<TYP_'OP6'a8>>, OP_TYPES4(FP) 
0000 122 -ENDC 
0000 \¢7 IF EQ N_ARGS-5 :;_5 arguments? 
0000 124 MOVB = #<TYP_'OPS">, OP_TYPES4(FP) 
0000 125 -ENDC 
0000 126 IF GT N_ARGS=-2 3; more than 2 arguments? 
0000 127 MOVL #<TYP_'OP1'+ - 
0000 128 <TYP_"OP2'a8>+ - 
0000 129 <TYP_‘'OP3'al6>+ - 
0000 130 <TYP~"OP4'a24>>, OP_TYPES(FP) 
0000 131 -ENDC 
0000 1 ¢ IF EQ N_ARGS-2 3:2 at gynents? 
0000 13 MOVW  «- #<TYP_'OP1"+<TYP."OP2'd8>>, OP_TYPES(FP) 
0000 13 -ENDC 
0000 135 IF EQ N_ARGS~1 3_1 argument? 
0000 136 MOVB = #TYP~"OP1", OP_TYPES(FP) 
0000 137 -ENDC 
0000 138 -ENDM 
000 139 
000 140 ; 
900 121 ; EQUATED SYMBOLS: 
$0 108 : See body of routine 


OWN STORAGE: 
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Parameters 
40 
Opcode range Limits 


Operand Area Layout 
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Assorted Definitions 


flexible stack space (longwords) 


zero indicator (byte) 
sign indicator (byte) 
exponent (lLongword) 
fraction area (octaword) 
operand area size (bytes) 


Bits in the Processor Status Longword (PSL) 


WNMINOUSWN—O 


one 


Masks for the Processor 


N 
PSLM_U+PSLM_C 
PSLA-VCSPSLA_NSPSLM_Z 


PSLM“N+PS 
PSLM-NZ+PSLA_V 
PSLM-N 


PSLM-Z 
0 


Call Frame Layout 


carry indicator 

overflow indicator 

zero indicator 

negative indicator 

trace enable indicator 

integer overflow trap enable 
floating underflow fault enable 
low bit of current access mode 
instruction first part done 
trace pending indicator 


Status Longword 


wre indicator 

overflow indicator 

zero indicator 

negative indicator : 
overflow and carry indicators 
condition code 

comparison codes 

bits other than carry 

less than condition code 
equals condition code 
greater than condition code 
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00000050 
00000054 
00000058 
00000058 
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on handler location 


saved processor status word 
fogiscer save mask 


pos 
user's 
user's 
return 
user's 
user's 
user's 
user's 
user's 
user's 
user's 
user's 
user's 


user's R 
; user's 
; user's 
; end of 


Call Frame Extension Layout 


Local Storage Layout 


HANDLER=1 


SAVE_ALIGN=1 
SAVE ~PARCNT=1 
MODE=1 
FLAGS=1 
SHORT_LOC 
REGMOD_PC 
REGMOD~SP- 


user's 
user's 
user's 
user's 
user's 
end of 


ition of alignment bits 
argument pointer 
ek ee pointer 


R11 


PSL 
Emulator local storage 


temporary area for arithmetic 


saved c 
saved c 


opy of alignment bits 
opy of parameter count 


access mode for probes 


indicat 


or flag bits 


start of shor pocet storage 


changes 
changes 
changes 
changes 
changes 
changes 
changes 
changes 
changes 
changes 
changes 
changes 
changes 
changes 
changes 
changes 
tempora 
tempora 


to user's P 
to user's SP 
to user's FP 
to user's AP 
to user's R11 
to user's R10 
to user's R9 
to user's R 
to user's R 
to user's R 
to user's R 
to user's R4 
to user's R 
to user's R 
to user's R 
to user's RO 

ry address area #1 
ry address area #2 


H 14 
VAXSEMULATE_FP - Emulaie floating-point instructions 16-SEP-1984 01:39:4 AX/VMS Macro V04-00 Page 7 | 
vourp08 DECLARATIONS -™ meets 1 23:82 LEMULAT. SREJPPEMULATE MAR: 1 . (3) 
FFFFFFDE 4 ADDRESS3 = ADDRESS2-4 ; temporary address area #3 
FFFFFFC? 5 OPERAND1 = DDRESSS-OPERAND_SIZE ; temporary operand area #1 
FFFFFFAF 66 OPERAND2 = OPERANDI-OPERAND_SIZE ; temporary operand area % 
FFFFFFO7 67 OPERANDS = OPERAND2-OPERAND_SIZE ; temporary operand area # 
FFFFFF93 68 OP_TYPES4 = OPERAND 35-4 ; Four bytes for operand type codes 
FFFFFFSF § OP_TYPES= OP_TYPES4=4 : Four more bytes for operand type codes 
FFFFFF $8 Q OP_INDEX = OP_TYPES=4 ; Pointer to current byte of OP_TYPES 
FFFFFF 3 4 LOTAL_START = P_INDEX ; start of Emulator local storage 
09 78 3 Indicator Bit Numbers 
68800000 88 75 FLAGO = 9 ; inhibit local store check 
1 6 FLAG] = ; register mode operand 
FS 4 7 Plage = § ; (not assigned) 
000000 78 FLAG = :; (not assigned) 
44 000 79 FLAGG = 4 ; (not assigned) 
00000005 44 0 FLAGS = 5 3; (not assigned) 
ieee ged 000 1 FLAG6 = 6 ; (not assigned) 
0000000 44 §¢ FLAG? = 7 ; temporary use 
44 Se ; Indicator Bit Masks 
00000001 0000 86 FLAGOM = 1a0 ; inhibit local store check 
00000002 0000 87 FLAGIM = ial ; register mode operand 
00000004 0000 88 FLAG2M = 18 : (not assigned) 
00000008 44 89 FLAG3M = 1a 3 (not assigned) 
0000010 0000 90 FLAG4M = 1a4 ; (not assigned) 
0000020 0000 91 FLAGSM = 1a5 : (not assigned) 
00000040 0000 38 FLAG6M = 1a6 ; (not assigned) 
00000080 44 + FLAG7M = 1a7 ; temporary use 
444 + 3 Fields in the Operand Areas 
FFFFFFC7 $900 97 ZEROI = OPERAND1+ZERO ; zero flag of OPERAND! 
FFF FFFAF 000 98 senog = OPERAND2+ZERO ; zero flag of OPERAND 
FFFFFF97 0000 99 ZERO = OPERAND5+ZERO 3; zero flag of OPERAND 
FFFFFFC8 0000 00 SIGNI = OPERAND1+SIGN ; sign of OPERAND 
eeeese 4 01 tail = OPERAND2+SIGN ; sign of OPERAND 
FFFFFF9 8 00 8 SIGN = OPERAND5+SIGN : sign of OPERAND 
erereae 000 8 POWER] = OPERAND1+POWER 3 exponent of OPERAND1 
FFFFFFB 44 4 pone = preg WS oe 3 exponent of OPERAND 
FFFFFF9B 83 | 05 POWERS = OPERAND3+P0 ; exponent of OPERAND 
FFFFFFCE 0 8g FRACTION! = OPERAND1+FRACTION : fraction of OPERAND1 
4addan 4 3 are ys = OPERAND2+FRACTION ; fraction of OPERAND 
FFF FFFOF 3 FRACTIONS = OPERAND5+FRACTION : fraction of OPERAND 
3 19 3 Access Type Code Definitions 
si 48 1 00 \¢ TYPE_READ = 1 ; read only access 
00 § 15 TYPE_WRITE = § 3 write only access 
00000 14 TYPE_MODIFY = 3; modify access 
000004 0 12 TYPE_ADDRESS = 4 ; address access 
: \ : Data Type Code Definitions 
00000001 19 TYP_B ‘= 1 ; byte 
ditties 20 TYP_W = 2 ; word 


- 
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; 2 ee i Longuorg 
> + Quadwor 
5 TYP_O = 5 3 oc taword 
$ TYP_F = § i F floating 
0 8 TYP_D = ; Do floating 
00000008 TYP_G = 8 ; G_floating 
00000009 TYP_H = 9 ; H_floating 


3 Instruction type definitions for optimization check 


WAAL Nnonononorofrornonefny 


AUF WN - OOONOUS wr 
& 


9000 001 IT_D = ARCSM _DFLT_EMUL@=ARCS$V_DFLT_EMUL 
00000002 ITF = ARCSM~FFLT-EMUL@-ARCS$V_DFLT—EMUL 
00000004 1T=G = ARCSM~GFLT~EMUL@-ARCS$V~DFLT—EMUL 
00000008 IT"H = ARCSM_ oHFLT “EMUL@-ARCS$V_DFLT_EMUL 
00000000 IT=X = : "none 


VAXSEMULATE_FP - Em 
v04~ $ 
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° 38 * SUBTITLE VAXSOPCDEC 
40 : Functional Description: 
This routine is entered in kernel mode through the SCB vector for 
the OPCDEC exception. It determines if the instruction that caused 
the fault is one supported by this emulator. If so, the rest of the 
emulation is carried out by an instruction-specific routine. If not, 


control is transferred to the OPCDEC handler that is a part of the 
VMS executive to allow normal exception dispatching to take place. 


Input Parameters: 


O(SP) = PC of faulting instruction 
4(SP) = PSL at the time of the fault | 


Output Parameters: 


The real output from this routine is the routine to which control 
is passed, namely the routine that handles each separate instruction. 


~-PSECT VAXSFPE_NONPAGED olbe USR, CON, REL, LCL, SHR,- | 


XE, RD, NOWRT, Q 
eALIGN QUAD 


VAXSOPCDEC: : 


7E 50 7D MOVa RO, -(SP) 3; Save RO and R1 

; It is not clear whether the following PROBER is avegepery One approach is 
; that an inaccessible opcode would cause an access violation rather than 

3 a reserved instruction exception. 


8(SP), RO 
1, (RO), 158 ; Insure that opcode can be read * 
RO)+, R ; Get first opcode byte, increment ‘'PC 
- W“OP_MASK_1BYTE, 90$; Test for opcode not emulated 
bg #*xr5 i; Is ita two~byte opcode? 

Oo 


1 
0 
1 
R 
1 


; RO contains the PC of the instruction 


a 
( 
R 
CMPB R i 

BN 1 ; Skip ifn 
#1, (RO), 15$ ; Can second byte be read? 

51 (RO), RI ; Fetch second byte 

5F OOCS'CF R1, W*OP_MASK_2BYTE, 90$; Test for opcode not emulated 


s¢ | 
3; Now the kernel stack looks as follows: | 
Saved RO 
Saved R1 
| 
| 


(SP) . PC of instruction 
- PSL of instruction 


Switch stacks to that of the exception, push onto that stack the PC/PSL. 
Push the PSL with T, TP and FPD bits clear, the address of 
EMULATE_FP, and then REI to EMULATE_FP. 


FAN = OOD NAME WN S OD NAUE WN @ O OONAU EWN @ OOO NOU EWN OOONOUS wh 


WOO O00 00090909 69 69 C909 09 SI NIN NNN SNNSIDDDDDDDDOD TUTTUTI B PPEE 
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8 95 
51 OC AE 02 18 FF B 89 10$: EXTZV #PSLSV_CURMOD,#PSLS$S_CURMOD,12(SP),R1 ; Get previous mode 
51 3 } 9 BEQL ; Br if kernel, no stack change needed 
98 IFNORD #4,G*CTLSAL_STACK,90$ ; Is there a control region? 
03D 99 ; Br if not, handle as a real exception 
03D 730 ASSUME PSLSC_KERNEL EQ 0 
D 401 ASSUME PRS$_ESP EQ PSLSC_EXEC 
03D rt ASSUME PRS$_SSP EQ PSLSC_SUPER 
03D 40 ASSUME PRS_USP EQ PSLSC_USER 
50 51 DB 0030 404 MFPR R1, R ; Get address of stack of excpt mode 
040 405 IFNOWRT #8, (RO), 40$ ; Br if cannot copy to excpt mode stk 
00000000'GF41 5 D1 Ree £88 CMPL RO,G*CTLSAL_STACKCR1] ; Top address of stack in range? 
42 1A (O0GF = 4 BGTRU 40$ : If GTRU no. 
50 0 C2 0051 408 SUBL #8, RO 3; Get new low stack address 
51 03 D1 0054 409 CMPL #PSLSC_USER,R1 : Previous mode user? | 
OA 13 0057 410 BEQL 12$ : 1 yes. 
00000000'GF41 50 D1 0059 411 CMPL RO,G*CTLSAL_STACKLIMCR1]; Bottom address of stack in range? 
30 1F 0061 AL BLSSU 4 3; If LSSU no. 
60 08 AE 7D 0063 413 12$: MOVQ 8(SP), (RO) ; Push PC/PSL 
51 50 DA 0067 414 MTPR , 3; Set stack pointer to new value 
OC AE 48000010 8F CA O06A 415 BICL2 #<PSLSM_TP!PSLSM_TBIT!PSLSM FPD>,12(SP) ; Clear bits in PSL 
51 FO 4 416 INSV R1,#PSLSV_PRVMOD,A#PSL$S PRVMOD, 12(SP) 3; Set PRVMOD = CURMOD 
Q000'CF 9 0078 417 MOVAB W*VAXSSEMOLATE_FP, B(SPY; Set entry address | 
50 8E 7D OO7E 418 MOVQ (SP)+, RO ; Pop saved RO and R1 
02 0081 419 REI : Jump to EMULATE_FP | 
OF 11 $085 421 15$: BRB 40$ 3; Chain branch for ACCVIO test 
0084 4 ¢ 
0084 423 ;+ 
0084 424 ; We come here if the previous mode is kernel, since we don't need to 
0084 425 ; switch modes. 
0084 426 s- 
0084 427 
8E 7D 0084 428 20$: mMOVa (SP)+, RO ; Pop saved RO and R1 
FF76" 31 aH ? 4 BRwW VAXSSEMULATE_FP ; Emulate the instruction 
OO8A 431 ;+ : 
008A +38 3; If we don't handle the instruction, remove the things we pyshed on the 
OO8A 433 ; stack and jump to the EXECPTION code that handles SS$_OPCDEC 
008A re 3° 
008A 435 
7D QO8A 436 90S: MOVQ (SP)+, RO ; Restore RO-R1 — 
17 008 4 7 JMP G*EXESOPCDEC : Reflect exception 
099 & : : If a PROBE of an outer access mode fails, then the exception is reported 
09 440 ; as an access violation rather than as a reserved instruction. This allows 
09 441 ; the stack expansion Logs and other such things to be invoked without this 
O33 226 3; emulator worrying about such things. 
| 
6E 7D 0093 444 40S: MOVaQ (SP), =(SP) 3; Move saved RO-R1 
50 0 0096 445 MOVL RO, 12(SP) : Store sraccose tale stack address 
BE 7D O9A 44 MOVG = (SP) +, RO : Restore RO-R1 
030 448 ; Note that the access violation mask generated here (always zero) is not 
44 chs ; correct for the extremely rare case of an inaccessible exception stack. 
6—E D4 O009D 451 CLRL (SP) : Set mask to indicate a read 


WOR. WOO — CIMT NOR. DOO CUM TN OR. ODO CUM 
INWNININOOOOO000000R-F-P_P_P_PR_B_R.BR_R..00000000 
wvwvvwvvvI Iii ti i ttt 


MAAN OF NA OM VMNUINOA OR NO O-— 
<add ede ee ee COMM DV OY Vvovvaaaaw 
DOOCOOSOOOSOOOSOOSOSOSOSOSOSOOOOSOOSOSOSoOOoOSO 
COOOCOOCOOSOSOSOOSOSOOSOSOSSSOCOCOSOoSoSoOoO 


- Emulate floating-point instructions 


Mask of emulated opcodes 
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VAXSSEMULATE_FP = Emulator Entrance 
entered by branching 


parameters 0(SP) Instruction PC 
4(SP) Instruction PSL 


Discussion 


Emulator. The PC and PSL for the instruction being emulated 
are pushed onto the stack and the routine is entered. The 
routine simply allocates the simulated user stack space for 
the Emulator and calls the emulation procedure. 


Notes: 1. The FPD bit may be set in the pushed PSL. This 
bit will only be interpreted during the emulation 
of the POLYx instructions where it is 
interpreted as described in the VAX System 
Reference Manual. 
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| 
This routine provides a simple method of activating the 
| 
| 
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0 
1 
0000 1 -PSECT VAXSFPE_PAGED PIC, USR, CON, REL, LCL, SHR,- 

\ EXE, RD, NOWRT, QUAD 

14 VAXSSEMULATE_FP:: 
5E FF68 CE QE 0 15 MOVAB <-4*<CALL_ARGS-2>(SP),SP ; allocate the parameter block 

F'AF 28 FB 16 CALLS #CALL_ARGS,B*EMULATOR 3; call the Emulator 
00000000'GF 17 17 JMP G*EXESOPCDEC ; shouldn't return here - 
18 3; indicate OPCDEC as fallback 
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VAXSEMULATE_FP - Emu 4-00 
vou~500 EMULA =SEP=1984 EMULAT.SRCJFPEMULATE.MAR; 1 


~SBTTL EMULATOR 


EMULATOR = Start Instruction Emulation 
parameters: ( Described Below ) 
Discussion 


This routine initializes the Emulator, processes the 
instruction code, and passes control to the wg tote 
instruction emulation routine. The parameter List consists of 
CALL_ARGS longwords of which only the last two have any 
meaning. These [phe tag? - are the PC and PSL for the emulation. 
The position following the parameter List is the 
user's stack pointer. The area covered by the parameter List 
is used to emulate the top of the user's stack. | 


When the routine is entered the CALLS instruction saves 
the user's registers RO to R11 in order and saves AP and FP 
elsewhere in the frame. The routine extends the saved 


Se Bea Be Dons Pea Ben es Be Bn ee ee te De ed 


registers by saving the user's AP, FP, SP, PC, and PSL after 


F the saved register area (the last two are taken from the 
+4 parameter List). 
OOOF The local storage is allocated by extending the stack and 
OOOF the register modification bytes are cleared (these bytes 
OOOF record small changes to the register values). The cell MODE 
QOOF is set equal to the current access mode for use in probing 
OOOF memory references. The alignment bits in the call frame and 
OOOF the call parameter count are also saved so there is a safe 
OOOF copies to use when processing unwinds. 
OOOF Notes: 1. From the description of the wey the simulated 
OQOOF register area is constructed, it is clear that 
QOOF the length longword of the parameter List is 
OOOF overwritten. ALL of the methods of leaving the 
QOOF Emulator put this longword back together. The 
OOOF internal condition handler does this if it 
sit detects an unwind. 
4444 2. Here are some more details on the register change 


pyres Until the very end of instruction process tng 
when the results ar* output, all of the c anes? 
which occur to the registers are caused by adding 
or subtracti., smail values to or from a register. 
These changes are also recorded in a corresponding 
register change byte so the register may be 
restored to its onm:ginal value if a fault occurs. 
Those instructions that save results in the 
regteters in order to be interruptable, use the FPD 
bit in the PSL to indicate that this has been done 
so different logic should be used for restarting 
the instruction after a fault. In this case the 
change bytes should be cleared when FPD is set 
except for the one for PC. 
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3. The location of the instruction being emulated is 
stored in the return PC for the Emulator's frame 
so it mey be easily located from the traceback 
report if the Emulator blows up. 


“M<RO,R1,R2,R3,R4,R5,RO, a7’ “RB, Ro, R10,R11> : entry mask 
LOCAL. START(FPS ,SP Llocate gre local storage 
#MASK EAL IGN A SAVE MASKUFP) = alignment bits 
RO,SAVE_ALIGN(FP) "thes 
pce ARGS, SAVE _PARCAT(F on : “seus the parameter count 
FLAGSTFP ear the flag bits 
wW*COND “HANDLER, HANDLER (FB) - set up the condition handler 
REGMOD_RO(F ; clear register modification bytes 
rtey OD “RBCEP ; clear register modification bytes 
SAVE OPCEP). REG AP(FP) ; move user's AP and FP into place 
4e<CRLL_ARGS+1>7 TAP), REG_SP(FP) ; move user's SP into place 
4*<CALL~ARGS=1>(AP) ,REG a P) ; move PC and PSL into place 
onst. CARA »PSL(FP).RO ~; RO = user's access mode 


REGMOD _PC(FP) 


remember the increment 
DISPATCH _2BYTE 


execute 2-byte opcode 


MODE (FP) ; save it for probes 
Ree PC(FP),R11 ; get instruction PC 
* SAVE PC(FP) e PC in the return PC 
oP SPPERTFP) © OP_ INDEX (FB); “initialize ptr to operand type codes 
(RT1)+,R0 : get first opcode byte 
REG _PC(FP) 3; increment emulated PC 
EGROD_PC(FP) 3 remember the increment 
PSL_T,PSL(FP) ,10$ ; check for T-bit 
#PSL-TP,PSL(FPS, 10S : set TP if T set 
Ses V,PSL(FP) ; clear the V bit in the PSL 
#*RFD : ay | a instruction? 
DISPATCH 1BYTE : skip 
Pri )+,R0 3 get next seeds byte 
REG _PC(FP) ; Increment emulated PC 


VAXSEMULATE_FP 
yOu.000 “ 
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DISPATCH 1BYTE: 
ASEB 
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-SBTTL DISPATCH 1BYTE 


g DISPATCH_IBYTE = Branch to emulation routine for 1-byte opcode 
; entered by branching 
3 RO contains opcode 
SE RO ,#*X40,#<*X76-*xX40> 8 ; from ADDF2 through CVTDF 
WORD INST ADDE@-18 : 40 ADDF 
«WORD INST_ADDF 5-1$ 3; 41 ADDF 
WORD tet sUST e-i8 : tg $UB 
»WORD INST_SUBF3-1$ : 4 SUBF 
WORD ft I 3 44 MULF 
«WORD INST_MULF3-1$ : 45 MULF 
WORD te ae 5 $6 pies 
«WORD INST_DIVF3-1$ 3 4 DIVF 
«WORD INST_CVTFB-1$ : 48 CVTFB 
«WORD INST_CVTFW-1$ 3; 49 CVTFW 
«WORD INST_CVTFL-1$ 3: SA CVTFL 
«WORD INST_CVTRFL-1$ ; 48 CVTRFL 
«WORD INST_CVTBF-1$ 3; 4C CVTBF 
«WORD INST_CVTWF-1$ 3: 40 CVT WF 
«WORD INST_CVTLF-1$ 3; 4E CVTLF 
-WORD INST_ACBF-1$ 3: 4F ACBF 
«WORD INST_MOVF-1$ ; 50 MOVF 
«WORD INST_CMPF-1$ s 3} CMPF 
«WORD INST_MNEGF-1$ 3 26 MNE GF 
«WORD INST_TSTF-1$ : 5 TSTF 
«WORD INST_EMODF-1$ 3; 54 EMODF 
«WORD INST_POLYF-1$ 5 35 POLYF 
«WORD INST_CVTFD-1$ : 2$ CVTFD 
-WORD 10$-TS$ 23 
«WORD 10$-1$ ; 58 ADAW! 
«WORD 10$-1$ : oe 
-WORD 10$-1$ ; SA 
-WORD 10$-1$ ; 58 
«WORD 10$-1$ s 3¢ INSQHI 
«WORD 10$-1$ ; 5D INSQTI 
-WORD 10$-1$ 3 2 REMQH] 
«WORD 10$-1$ 3 oF REMQTI 
-WORD INST_ADDD2-1$ ; 60 ADDD 
«WORD INST_ADDD5-1$ ; 61 ADDD 
-WORD INST_SUBD2-1$ ; 6¢ SUBD 
«WORD INST_SUBD5-1$ ; 6 SUBD 
ORD INST_MU $ : 64 Hh 
INS 3 ; 65 MULD 
0 INS $ 3 96 DIVD 
INS $ 36 DIVD 
INS % ; 98 CVTDB 
INS $ : 6 CVTDW 
INS $ ; 6A CVTOL 
INS 1 ; 68 CVTROL 
INS $ ; 6C CVTBD 
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NORMAL_EXIT = Normal End of Instruction Emulation 
entered by branching 
no parameters 

Discussion 


This routine restores control to the user program whenever 
the emulation ends without causing an exception. First the V 
and IV bits in the user's PSL are checked. If they are both 
set then an integer overflow trap is signaled. When the 
Emulator returns, all of the registers, PC, and the PSi are 
set to the emulated values. 


DODOOCOCCOoWoOoNowOovNonO 
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The method of leaving the Emulator consists of pushing the 
user's PC and PSL onto the user's stack putting the saved AP 
and FP back in their proper places in the frame and performing 
the indicated adjustment so that when a RET instruction is 
executed all of the registers up to FP will be restored and 
the stack pointer will be positioned to the PC, PSL pair. 


At this point, a speed optimization is performed. If the 
next instruction is also one we emulate, then we can bypass the 
overhead for the reserved opcode fauit and exception 
valle pa by merely gop ing back to the megrannns of the 
emulator. After the RET restores all registers, the stack 
contains the PC/PSL pair for the next instruction. The PSL is 
examined to see if che T-bit is set. If so, we can't do the 
optimization. If T is clear, we then examine the next opcode. 

f it is one which we emulate, a branch is made to EMULATES 
to begin emulation of the next instruction. Note that the 
“arguments'’ to EMULATES, a PC/PSL pair, are already in place! 


If the optimization can not be performed, an REI is executed 


3 which restores the PC and PSL for the next instruction. 
NORMAL EXIT: 3; entrance 
08 54 AD O1 €1 BBC #PSL_V.PSL(FP),1$ ; no integer overflow - bypass 
03 54 AD OS €1 BBC #PSL-IV,PSL(FPS,1$ : no integer overflow trap - skip 
1AF9 1 BRW INT OVERFLOW 3; process the integer overflow trap 
5E FB AD 1$: MOVAB SHORT_LOCAL(FP),SP ; shorten the frame 
50 08 B MOVL RO ; RO = size of PC, PSL pair 
OOF F BSBW gst FRAME 3; make sure we have room to push it 
4C AD 08 2 SUBL2 #8,REG_SP(FP) ; allocate room on the user's stack 
4C BD 50 AD D Ova £G_PCTFP @REG_SP(FP) ; push the PC, PSL pair 
08 AD 44 AD 7D mMOva REG _ AP(FP),SAVE_AP(FP) ; put the user's PC, PSL pair back 
10 AD OC'AF QE MOVAB B28, SAVE_PC(FPT : store our return point 
50 48 aD 9 MOVAB FRAME ENDT4(FP) .RO : RO = Location of end of frame | 
51 4 C SUBL3 RR REG SP (FP) Rf : R1 = distance of user SP from it | 
EXTZV R = stack alignment 


° oR2 ; R2 
INSV. R2.#MASK/ALIGN,#2,SAVE_MASK(FP) ; store it into the frame 
; compute the parameter area location 
#-8,R1,-4(RO) 3; store the parameter count 
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Loating-point lastracttons 


; At this point 
; has the user 


#PSL_T, 4(SP), 908 


~J 
ovUveo 


t an #2, 12(SP) 
a5! (r1)° : 


POT 


#4, RO 
RO. #4, INST_TYPES_1BYTE 


#4, RO 
RO. #4, INST_TYPES_2BYTE 


Woo 
PAM 


#<IT_F+IT_H>, R1 
RO,#*™x99 


0$ 
#<IT_G+IT_H>, R1 
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3; return (to next instruction) | 


se 
; Perform instruction lookahead for speed optimization. 
PH hae contains the PC of 


the next user instruction, 4(SP) 


; If T-bit set, don't do lookahead 
; Save go nt yenporar ity 
n 


Get PC 
Get current access mode in 
Can we read the next TWO bytes? 
If not, just return 
Get next opcode byte in RO 
2-byte opcode? 
Skip if yes 

Compare against ADDF 2 
Not emulated if LSSU 

Compare against CVTDF 
Not emulated if GTRU 
Get bit offset of mask 

; Get inst-types mask in R1 

Join common code 
Get next opcode byte in RO 

Skip if greater than PUSHAO (*X7F) 
Compare against CVTDH 
Not emulated if LSSU 
Get bit offset of mask 

1; Get inst-types mask in R1 
Join common code 
Restore saved RO ; 
Return to the next user instruction 
Assume CVTFH or CVTHF 
Compare against CVTFG 
Not CVTFG or Sp ME GTRU 


R1 mask is correct for CVTFH 

CVTFG = Switch to using F and G 
Join common code 

Compare ope inet CVTHF 

Not emulated if LSSU 

Join common code if cutie 

CVTHD = Switch to using H and D 
Align mask with EXESGL_ARCHFLAG 
Should we emulate this instruction? 
If all bits test zero, no 

Pop saved RO and R1 

Emulate the next instruction 
FLT L+1 
FLT 
FLT 
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The following two tables provide information on what floating types 

are manipulated by each instruction. For each opcode there are 

four bits which, if set, indicate that the instruction uses D, F, G 

and A etd data, resgect ively, These four bits are compared against 
the corresponding four bits in EXESGL_ARCHFLAG to see if the next 
instruction should be emulated; this fest takes place in NORMAL_EXIT. 


ed 
; Macro INST_TYPE generates table entries 


gpAcno INST_TYPE OPCODE1,OPCODE2 
x= 

. IRPC $$t ,<OPCODE2> 

$$x=S$$x+1T_ "$$" 

-ENDR 
$$x=$$xa4 
. IRPC $$t ,<OPCODE1> 
$$x=SS$x+1T_'S$t' 
-ENDR 

-BYTE $$x 

-ENDM 


+ 
INST_TYPES_1BYTE = Masks for 1=-byte instructions. 
Covers opcodes 40 (ADDF2) through 76 (CVTDF) 


INST_TYP BYTE=.-<*X40/2> ; Offset for first sogete 
P ; ADDF2 3 


ES_1 
INST_TYPE FF ; ADDF2, ADD 
INST-TYPE FF ; SUBF2, SUBF3 
INST-TYPE FF : MULES, MULES 
INST-TYPE FF ; DIVF2, DIVF3 
INST~TYPE FF ; CVTFB, CVTFW 
INST-TYPE FF ; CVTFL, CVTRF 
INST-TYPE FF > CVTBF. CVTWF 
INST-TYPE FF : CVTLF. 
INST-TYPE FSF : MOVE, CMPF 
INST-TYPE FSF > MNEGF, TSTF 
INST-TYPE FOF : EMODF; POLYF 
INST-TYPE FO,Xx : CVTFD. <5?> 
INST-TYPE XX : ADAWI, <59> 
INST-TYPE xix : <5A>, <5B> 
INST-TYPE XX ; INSQHI, INSQTI 
INST-TYPE XX ; REMQHI, REMQTI 
INST" TYPE D.D > ADDD2, ADDD 
INST-TYPE D,D ; SUBDe, SUBD 
INST-TYPE D,D ; MULD2, MULD 
INST-TYPE D,D ; DIVDe, DIVD 
INST-TYPE D,D > CVTDB, CVTDW 
INST~TYPE D.D > CVTDL, CVTRDL 
INST~TYPE D.D ; CVTBD, CVTWD 
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AE 306 INST_TYPE D,D : CVTLD, ACBD 
AF INST_TYPE D,D ; MOVD, CMPD 
BO 964 INSTITYPE D.D ; MNEGD, TSTD 
Bi 965 INST_TYPE D,D ; EMODD, PoLyo 
Be 366 INSTITYPE FD,X ; CVTDF, < 
B3 968 ;+ 
B $69 3 INST_TYPES sorts - Masks for 2-byte instructions. 
8 ; a59 3 ; Covers opcodes 32FD (CVTDH) through 7FFD (PUSHAO) 
B3 972° 
0000029A B 38 INST_TYPES a title ; Offset for first opcode 
B 974 INST_TYPE DH, GF ; CVTDH, cVTGE 
0284 975 INST-TYPE XX ; <34FD>, <3 FD> 
0285 378 INST_TYPE XX 3 <36FD>, <37FD> 
88 97 INST_TYPE XX : <38FD>, <39FD> 
B 978 INST_TYPE X,X 3 <3AFD>, <3BFD> | 
0288 979 INST_TYPE X,X 3 <3CFD>, <3DFD> 
SHH 980 INST_TYPE XX 3 <3EFD>, <3FFD> 
O2BA 981 INST_TYPE G,G ; ADDG2, ADDG3 
0288 o8¢ INST_TYPE G,G ; SUBG2, SUBG3 
O2BC 98 INST_TYPE G,G ; MULG2, MULG3 
O2BD 984 INST_TYPE G,G ; DIVG2, DIVG3 
O2BE 985 INST_TYPE G,G ; CVTGB, CVTG 
O2BF 986 INST_TYPE G,G ; CVIGL, CVTRGL 
02cO0 987 INST_TYPE G,G ; CVTBG, CVTWG | 
02Ci 988 INST_TYPE G,G ; CVTLG, ACBG 
0 ts 989 INST_TYPE G,G ; MOVG, CMPG | 
02c3 990 INST-TYPE 6.6 ; MNEGG, TSTG | 
02c4 3 =-991 INST_TYPE G,G ; EMODG, POLYG 
02c5 99 INST_TYPE GH,X ; CVTGH, <57FD> 
02C6 99 INST_TYPE XX ; <S8FD>, <S9FD> 
02C7 994 INST_TYPE XX 3 <SAFD>, <SBFD> 
02c8 995 INST_TYPE X,X 3 <SCFD>, <SDFD> 
0209 996 INST_TYPE X,X : pie id <ouep> 
O2CA 997 INST-TYPE H,H ; ADDH2, ADD 
O2cB 8998 INST_TYPE H,H : SUBH ’ SUB 
O2cc 999 INST_TYPE H.H ; MULH2, MULH3 
O2CD 1000 INST_TYPE H,H ; DIVH2, DIVH3 
O2cE 1001 INST_TYPE H,H ; CVTHB, CVTHW 
O2CF 1006 INST_TYPE H,H ; CVTHL, CVTRHL 
9 DO 100 INST-TYPE HH ; CVTBH, CVTW 
D1 1004 INST_TYPE H,H ; CVTLH, ACBH | 
Dg 1008 INST-TYPE HH ; MOVH, CMPH | 
DS 1 $ INST_TYPE H,H ; MNEGH, TSTH 
D4 18 INST_TYPE H,H ; EMODH, vere | 
D5 1008 INST-TYPE HG, X > CVTHG, <77FD> 
dg 1009 INST_TYPE XX 3 <78FD>, <79FD> 
an rn eh LA aoige 
D a . : 
} D9 1012 INST_TYPE H,H : MOVAO, PUSHAO 
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DA 1014 -SBTTL TEST_FRAME 
1B 
DA 1? : TEST_FRAME = Test Frame Location and Move If Necessary 
DA igs entered by subroutine branching 
DA 1 : parameter: RO = Size of Information to be Pushed 
0 DA 19 ; returns with RO = Distance Frame was Moved 
6 + 18 2 : Discussion 
DA 1027 : This routine determines whether or not the address given 
O2DA 1028 3 oY syatreg ting RO from the user's stack pointer can be made 
O2DA 3 9 : the location following a parameter List without the Location 
O2DA 10350 : being within the local storage. If this cannot be done then 
O2DA 1031 3 the entire precequre frame is moved so the condition can be 
O2DA 1936 5 satisfied. The distance that the procedure frame was moved 
O2DA 103 : is returned in RO. The value is zero if the frame is not 
OSDA 1085 — 
O2DA 1036 : Note: 1. The switch from one frame location to another is 
O2DA 1037 3 performed by a single indivisible POPR instruction 
020k 1936 3 so the Emulator is never in an anomalous state. 
O2DA 1040 F 2. If the frame is moved to a higher address, then 
O2DA 1041 : the saved AP and FP are changed to the values of 
zoe ak 3 the emulated registers. The reason for this is 
O2DA 104 3 that the move may over tay a valid frame so it is 
peda 1044 3 assumed that the user's AP and FP have been changed 
O2DA 1045 : by the instruction to information about a new valid 
O2DA 1046 5 frame. The implementor thinks that all of this is 
O2DA 1047 : pretty strange but if the program will work with 
BSA Wee : the hardware it will still work with the Emulator. 
O2DA 1050 TEST_FRAME: ; entrance 
00 0p O2DA 1051 PUSH #0 3; push a zero 
50 4C AD 50 C3 0O2dC 126 SUBL RO,REG_SP(FP) ,RO 3; compute pushed information address 
50 03 CA E1 105 BICL2 # : align the value 
51 58 AD 9E E4 1054 MOVAB LOCAL_END(FP),R1 ; R1 = end of Local storage 
51 3? 1 8 4 1923 at RO,R1 ; does push extend below the frame ? 
3; no - ass 
53 26 033 ic ED 192? BicLs #3,SP,R3 : RS = al toned stack pointer 
5 .) se F1 1058 SUBL #24,R3 ; adjust for additional pushes 
26 50 OD F4 1059 MOVL RO. Re ; R2 = address 10} lowing moved frame 
5 52 D1 F7 1060 CMPL R2,R ; does it extend into the frame ? 
8 8 FA 1061 BLEQU 3$ 3 no - bypass 
52 33 of re 1068 wing R3,R2 3; yes - use address below the frame 
: ass 
52 0447 CD 9E 0 01 1064 2$: MOVAB EE Ane MDT TST CPS Re $ Ros last possible parameter end 
* ae Bee 06 1065 CMPL ROR 3; does the push end above it ? 
49 18 09 1 96 BLEQU 3; no - bypass 
08 AD 44 ag 7D 98 106 MOVQ RES AP(FP),SAVE_AP(FP) ; change the saved AP and FP 
52. 50 cB 10 1068 BICL #3,RO,R2 ; Rs = aligned user stack pointer 
52 1. § 14 1 4 3$: SUBL R1,R2 ; R2 = distance of the move 
2 oD 17 1070 PUSHL R2 3; push the quantity 
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push the new alignment bits Location 
R sh the new parameter count address 
j = new frame end + 4 location 
= distance to user's SP 
R sh the new parameter count 
= number of bytes to move 
= location of bytes to move 
will we extend the stack ? 
no - skip 
yes - extend the stack pointer 
move the frame 
store the new parameter count 
clear the new alignment bits 
Switch to the new frame 
RO = distance frame was moved 
return 
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i) 
.SBTTL COND_HANDLER | 


COND_HANDLER = Internal Condition Handler 


parameters: P1 = Signal Array Location 


polo lelejlealelel a) 


l 
R 
7 109 
. 4 38 
7 1094 $ 
7 1095 $ 
aa 38 : 
57 109 ; 
8 2f ! a8 $ P2 = Mechanism Array Location 
0357 1199 : returns with RO = Condition Response 
0357 1101 : 
bez! 1198 § Discussion 
0337 1104 : This routine is the internal condition handler for the 
0357 1105 3 Wt where gs the Emulator does not make constructive use 
0357 1106 : of ree gh ons in its main procedure, this routine requests 
b32! 1102 3 resignaling of all conditions it intercepts. 
0357 1109 3 If the condition is SSS$_UNWIND which indicates that an 
Oe2! 1110 ; unwind is about to take place, then it restores the argument 
0357 1111 3 count longword in the parameter List for the procedure so the 
0357 ig 3 unwind will work properly. 
0357 111 : 
0357 1114 COND_HANDLER: ; entrance 
0000 0357 1115 -WORD 0 : entry mask 
04 AC 7D 0359 1116 MOVQ 4(AP) ,RO ; RO,RI = condition array Locations 
035D 1117 CMPCOND SS$_UNWIND,4(RO) ; is this an unwind ? 
19 12 0367 1118 BNEQ ; ie 3 no - bypass 
4 Al DO 0369 1119 MOVL 4(R1),RO a = irene. Location 
FF AO 90 036d 1120 MOVB SAVE _ALIGN( : safe copy of alignment bits 
AD 9A 0371 1121 MOVZBL SAVE EP PARENT EPS ~~ = (SP) push the argument count | 
51 FO 0375 1166 1 -BRASK “ALIGN, #2, SAVE NAS (RO) ; store align bits in frame 
51 CO 037B 112 ADDL2 A. RO ; add to the frame location 
8E D0 O37E 1124 MOVL (SP) +,F RAME_END(RO) ; store the argument count 
18 8F 3C 0382 1125 1$: MOVZWL #SS$_RESIGNAL,RO : resignal the condition 
04 tat 1158 RET 3 return 
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Introduction 


Following are the routines for emulating the individual 
new instructions. There is one routine for each instruction 
but the structure of most of these routines is extremely 
simple so we have included all of the descriptive information 
here rather than Ger icoting it for each routine. Special 
discussions are given for those instructions or families of 
instructions which do not quite fit into the general patterns. 


The routines themselves have been written so that they 
will be easy to follow. Because of this the temptation to 
remove a considerable amount of duplicated code has been 
staunchly resisted. 


ve lhe emulation routines have names which are of the form 
"INST_mnemonic’’, are entered by gt from the routine 
EMULATOR, and when instruction is complete the routines branch 
to NORMAL_EXIT. When exceptions occur, then flow of control is 
somewhat more complicated and is described below. 


Operand Processing 


The first step for each of the instructions is to process 
the instruction operands (this process is inhibited only for 
POLYx when FPD is set in the PSL). This is done by 
calling the operand Scpnning routines for each operand and by 
saving the operands values (for read and modify access 
operands) and operand addresses (for write, modify, and 
address, access operands) in the special areas of the frame 
allocated for that purpose. Floating values of all types that 
are input are converted to our internal floating format by the 
UNPACK routines which are described below. 


Instruction Emulation 


After all of the operands have been preceoers. the action 
of the instruction is performed usually by calling one of the 
arithmetic routines. For many of the move and convert 
instructions no special emulation action is necessary since 
everything is done by the PACK and UNPACK routines. All of the 
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floating arithmetic is performed using our internal floating 
representation. 


Storing the Results 


The last step of instruction emulation is storing the 
resulting values and under ing the condition codes. The values 
are stored in the order in which their tht wage wag operands 
occur so the instruction is emulated properly when the write 
or modify access operands overlap. Floating values are 
converced from the internal floating Copracsns ss $00 to the 
target representation by one of the PACK routines described 
below. After the results are output, the condition codes in 
the emulated PSL are updated. This order of operation is 
important since the PACK routines may convert very small 
nonzero values to zero values if an underflow occurs and FU is 
clear in the PSL. When the instruction emulation is compiete 
the routine branches to NORMAL_EXIT. 


Exceptions 


Except for the watoper overflow trap, all of the 
exceptions that the Emulator checks for are faults. When 
faults occur the Emulator restores ores to a state in 
which the instruction can be restarted and signals the fault. 
For the integer overflow trap, the instruction is run to 
completion, possibly outputing a truncated result, and the 
trap is signaled. Here we describe how instruction emulation 
is organized so this can be accomplished. Further information 
can be found in the essay on exception processing which 
appears below. 


Faults 


Until the results of an instruction are output, all of the 
changes which take place to any register are additions and 
subtractions of small integers. These changes are also 
recorded in the change bytes corresponding to the registers. 
Therefore the onty requirement necessary for correct fault 
process ne is to insure that all fauit detection takes prece 

efore any of the instruction results are output (actua 

things are a Little more complicated for POLYx). 

This is done by making the result outputing steps the Last 
part of instruction emulation. In this way fault detection 

can be placed anywhere in the Emulator it is convenient rather 
than requiring close syochroni zat ion with the instruction 
emulation logic. For this reason direct processing of faults 
(rather than, say, returning status codes) appears throughout 
the common Emulator subroutines. 


ly. 


ma ed a ed ed 8 8 ds 


PRIPIPIPOPIPIPIPPPNIPIPINIPYINININYAPINPPIPUNIPINIPIMININYINININIPYIPUNININININPININININYIDY 2 2 OS OO SS 


BBP AAAAA AA. AI GPPIPENIPUNINIDINIDD 2 tS S| DOO OCOTOOCOOCOCOCOOOOOOOOOO@MMomc 
MRS OONO NE WIN OOO NA MNES WIN $$ O OD NOAU EWN OC OD NOAU EWN 0 OD NOU EW OOONO 


The architecture makes no special requirements on the 
the condition codes generated by a fault except that they 
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be sufficient for correctly restartin 

eneral, the V bit is cleared b 
nstruction emulation routine s 
detecting integer overflow traps (see below). None of the 
other condition bits is altered until the results are output 
at the end of instruction emulation. Consequently all of the 
other condition bits are preserved into faults. (With the 
present set of emulated instructions the only preservation 
requirement is that the C bit be preserved on faults by the 
ACBx instructions.) 
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the emulated PC. 
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ce the bit is used for 


When a integer overflow is detected (either in a common 
subroutine or in the instruction emulation routine) the V 
bit is set in the emulated condition codes and the value is 
oceeds normally until control reaches 
and IV bits in the emulated PSL are 
checked. If both are set then an integer overflow trap is 


Access Modes and Access Violations 


s not less 


For these instructions the operands are processed, the 
step is added to the index, and the sum is packed and output. 
Afterwards the sum is unpacked again and compared with the 
Limit, the type of comparison depending on the sign of the 
step. The packing and unpackin 
sum to the correct number of b 
and to check for underflow or overflow exceptions. If the 
branch is to be taken, the branch destination is moved into 


q the instruction. In 
H EMULATOR on entry to an 
n 


rome 


This version of the Emulator has been designed to operate 
at the same access mode as the instruction being emulated. 
However most of the instruction emulation Logte has been 
Soave to operate at any access mode that 

eged than that of the instruction (exceptions: the logic 
for ge ~~ in, the logic for getting out, and the exception 

ogic). All attempts to access memory on behalf of 

the instruction are probed using the access mode contained in 
the local cell MODE. This is normally set to the current 
access mode but may be set to some less privleged access mode. 
Because this version of the Emulator operates on the user 
stack it is not necessary to probe stack operations, however, 
these probes are still done to insure that the code will 
remain usable for different access modes. 


S$ necessary to truncate the 
..to perform any rounding, 
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For these instructions the first two operands are a 
ete value of the appropriate type and a word containing 
some extension bits. When the extension bits are picked up 
they are stored in fhe correct position of the unpacked first 
operand. The remaining operands are scanned and flag bits 1 
and 7 are used to Arye A which output operands are in the 
registers. The multiply is then performed using the proper 
arithmetic routine and the product is truncated to the correct 
number of bits. Next the integer part is extracted and saved 
in an internal cell while the fraction part is extracted and 
packed. Next aoy pegrater output operands are output and 
the routine TEST_FRAME is called to insure that the user's 
stack pointer is within the parameter area. Next “~ output 
operands in memory are output with stores into the Emulator's 
working storage disabled .If both output operands are in the 
same type of storage, then the integer part is output before 
the fraction part. This complicated method of outputing the 
results is necessary because one of the register operands may 
contain SP and extend the user's stack into the Emulator's 
working storage. The call to TEST_FRAME will move the frame 
if this occurs so if the other operand will be stored into 
memory properly if it is not below the user's stack pointer. 
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Notes on the POLYx Instructions 


These instructions have especially complicated emulation 
routines because they do a lot, have a large number o 
implicit inputs and outputs, and are intended to be resumed 
instead of restarted when faults occur. For this reason we 
wonere fhe action of the instruction emulation routines in 
some detail. 


These instructions can be thought as pewtng two states. 
In the first of these states no unreversable changes have 

been made to the registers so if a fault occurs the } 
instruction can be restarted. The instruction remains in this 
state until all of the operands have been processed and the 
first coefficient has been validated. After this point the 
instruction saves various things in the registers RO-R5 (and 
on the stack for POLYH) so the instruction can no longer be. 
restarted but the information saved is sufficient for resuming 
the instruction after a fault. When this second state is 
reached the FPD bit is set in the PSL so the when the 
instruction emulation routine is entered for resuming the 
instruction it will know enough to do so. 


Following is an outline of the Steps in the emulation of 
the two instructions. The text generally describes POLYG and 
the differences for POLYH are noted in parentheses. 


1. This is the first step for the instruction emulation. 
If the FPD bit is clear in the PSL then control passes 
to Step 2. Otherwise the following actions which are 
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concerned with restarting the instruction take place: 


The Length of the instruction operands is retrieved 
from the high order three bytes of the user's R2 (R4 
for POLYH) and added to the current PC and to the 
change byte for the PC. If the instruction terminates 
the PC will be positioned [es teurne the instruction 
and if the instruction faults it will be reset to the 
location of the instruction. 

The result so far is unpacked from RO-R1 (RO-R3 for 
POLYH) and the unpacked value is stored in OPERAND2. 
The condition codes are set to describe this value. 


The argument is unpacked from R4-R5 (from a stacked 
octaword for POLYH, which is probed) and the unpacked 
value is stored in OPERAND3. 


The remaining coefficient count in the low order byte 
of R2 (R4 for POLYH) is checked for validity. 


Finally control passes to Step 3. 


2. This step performs all of the processing for initial 
entry to the instruction. 


0.090000 .00 Co 6 Co 00 Cd 00 Cd 0D Cd Cd Cd Cd Od 09 Od Cd Od OD Od C0 OD 9 Cd GD Od Gd Cd GD CD C9 CO Cd GD OD Cd CD Cd CD C9 CD00 0D GD 09 09 00 09 G9 CD CD 00 0D 


The first operand is processed and the unpacked 
argument is saved in OPERANDS. 


The second operand is processed and the Soores is 
checked for validity and the value is save 
temporarily in ADDRESS1. 


The third operand is processed and the address of the 
coefficient table is saved. The first coefficient is 
probed, unpacked, and saved in OPERAND2. 


If the instruction is POLYH then the user's SP is 
decremented by 16 (and so is ghe change byte) and 

the argument value in OPERANDS is packed and output 

to the allocated stack area. (If a fault occurs before 
FPD is set then SP will be reinitilized properly.) 


The coefficient in OPERAND2 is packed and stored in 
the user's registers RO-R1 (RO-R4 for POLYH), the 
address of the remaining coefficients is stored in the 
user's R4 (R6 for POLYH), the gegree is stored in the 
low order byte of the user's R2 (R4 for POLYH), and 
the length of the instruction operands (the PC change 
orte minus two) is saved in the upper three bytes o 
that register. The condition codes are set based on 
the value in OPERAND2. 


ALL of the change by*es except that for PC are cleared 
and the bit FPD is sut in the emulated PSL. 
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If the instruction is POLYG then the argument in 
OPERANDS is packed and saved in the user's R4-R5. 


Control Passes to Step 3. 


This step performs the basic polynomial evaluation 
iteration. 


If the remaining coefficient count in the low order 
byte of the user's R2 (R4 for POLYH) is zero then 
control passes to Step 4. 


The yoy so far in OPERAND2 and the mdf poe in 
OPERANDS are multiplied and the unnormalized product 
is truncated to 63 (127 for POLYH) bits and stored 
in OPERAND1. The truncation is performed by clearing 
the low order bit of the 64 (128 for POLYH) bit 
product returned by the multiply routine. 


The coefficient addressed by the user's R3 (RS for 
POLYH) is probed and yageenae to OPERAND2. The result 
is then added to OPERAND1. 


The new value so far in OPERAND! is packed and stored 
in the user's RO-R1 (RO-R3 for POLYH). The condition 
codes are set based on this value. The value is then 
unpacked and stored in OPERAND2. 


The remaining coefficient count in the low order byte 
of R2 (R4 for POLYH) is Soar enentee and the pointer to 
the next coeffiecient in R3 (R5 for POLYH) is 
incremented to point to the next coefficient. 


Control then passes to the beginning of this step. 


This step performs the termination of the instruction. 
The register R2 (R4 for POLYH) which contains the 
peer tien length and the coefficient count is 
cleared. 


If the instruction was POLYG then the registers R4-R5 
which contained the argument value are cleared. 


If the instruction was POLYH then the user's SP is 
incremented by 16 to unstack the argument. 


The FPD bit in the PSL is cleared. 
Instruction emulation is now complete. 


Careful reading of the above outline will show that the 
POLYG and POLYH instructions are correctly emulated even down 
to the handling of faults. Faults may be detected at any of 
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1471 the probes and at some of the pack and unpack operations. When 
1028 pout ts are detected control immediatly leaves the outline so 
1474 

1475 

1908 

147 

1908 

147 


t is important that everything be correct at the time the 
check is made. The reader may notice that some results are 
packed and then immediatly unpacked. This is done to check for 
overflow and underflow and to perform any rounding specified 
by iy architecture. This technique also converts nonstandard 
floating zero representations to standard ones. 
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: 4F ACBF = Add Compare and Branch F_floating 
INST_ACBE : 
SET_OP_TYPES FF 
BRB INST_ACBx 
3 6F ACBD = Add Compare and Branch D_floating 
INST_ACBO: 
SET_OP_TYPES D 
BRB INST_ACBx 
; 4FFD ACBG - Add Compare and Branch G_floating 
INST_ACBG: 
SET_OP_TYPES G 
BRB INST_ACBx 
3 6FFD ACBH = Add Compare and Branch H_floating 
INST_ACBH: 
SET_OP_TYPES H 
; BRB ~ INST_ACBx 
INST_ACBx: 
BSBW READ_ACCESS ; first operand is read only 
BSBW UNPACTK_FLOAT3 3 unpack and save the value 
BSBW READ_ACCESS ; second operand is read only 
BSBW §UNPACK_FLOAT2 ; unpack and save the value 
BSBW MODIFY ACCES ; third operand is modif‘ed 
MOVL R11, ADBRESS1 (FP) 3 Save the operand address 
BSBW UNPACK _FLOAT ; unpack and save the value hou 
BSBW BRA WORD ; fourth operand is branch destination 
MOVL R11, ADBRESS2(FP) 3 save the branch destination 
BSBW ADD_REAL 3; add the step and index 
BSBW PACR_FLOAT1 3 pack the index value 
MOVL ADDRESS1(FP),R11 ; R11 = destination address 
BSBW STORE _OPERAN ; store into third operand 
BSBW UNPACR_FLOAT1 3 put the value back 
MOVAB OPERAND1(FP),R1 3; R1 = location of index value 
SBW TEST_REAL 3; test the value 
SBW SET CONDITION 3 set the condition codes 
BICB2 V,PSL(FP) ; clear V in the PSL 
MOVAB OPERARD2(FP) RI : R1 = address of step value 
BSBW REAL 3; test the value 
BLSS s 3's negative - bypass 
MOVAB OPERAND1<7P),R1 ; Rl = address of index value 
MOVAB OPERAND3(FP),R2 ; R2 = address of Limit value 
BSBW QMPARE _REAL ; have we passed the Limit ? 
BGTR 3; yes - bypass 
1$: rey ADDRESS2(FP) ,REG_PC(FP) ; pertere the branch 
; bypass 
2$: MOVAB OPERANDI(FP),R1 ; RI = address of index value 
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52 97_AD 3 FA 1 38 MOVAB OPERAND3(FP),R2 ; R2 = address of Limit valu 
1769 F 1 BSBW COMPARE _REAL ; have we passed the Limit ? 
EC ’ 4 1540 BGEQ 3 no - perform the branch 

FDBE 31 0403 1541 3s: BRW NORMAL _EXIT : done 
4 ? 1 tg 
4 154 : 
: : rt: : 40 ADDF2 = Add F_floating (Two Operands) 
406 1 46 INST_ADDF 2: > entrance 
406 154 SET_OP_TYPES FF 
10 11 40A 1548 BRB INST_ADDx2 
8 C 1383 
40C 1550 3 
040C 1551 : 60 ADDD2 = Add D_floating (Two Operands) 
40C 1338 . 
40C 1553 INST_ADDO2: ; entrance 
40C 1554 SET_OP_TYPES D 
OA 11 0410 1555 BRB INST_ADDx2 
041 1328 
0412 155 3 
Ret 1328 : 40FD ADDG2 - Add G_floating (Two Operands) 
0412 1560 INST_ADDG2: 3 entrance 
0412 1561 SET_OP_TYPES  G 
04 11 0416 136¢ BRB INST_ADDx2 
0418 156 
0418 1564 3 
0418 1565 5 60FD ADDH2 - Add HFLOAT (Two Operands) 
0418 1566 : 
0418 1567 INST_ADDH2: 3 entrance 
0418 1568 SET_OP_TYPES H 
041C 1569 ;BRB INST_ADDx2 
041C 1570 
041C 1571 INST_ADDx2: 
OAAS 3 041C 1376 BSBW READ_ACCESS :; first operand is read only 
0E02 OQ O41F 157 BSBW UNPACK_FLOAT1 3 unpack and save the value 
OABO ) 8 «300 Be g 1574 BSBW MODIFY ACCESS 3 second operand is modified 
E7 AD 5B 00 04 1575 MOVL R11, ADBRESS1(FP) 3 save the destination location 
ODFE 0 0429 1326 BSBW UNPACK_FLOAT2 3; unpack and save the value 
11EF 0 042C 157 BSB ADD_REA 3: compute the sum 
OEE2 0 O42F 1578 BSBw ACR_FLOAT1 z pack the sum 
58 €7 AD 8 0432 1579 MOVL ADDRESS1(FP),R11 ; R11 = destination location 
107F 0 0436 1580 BSBW STORE_OPERAND 3; store the result 
1703 3 ot 138! BSBW SET CONDITION! 3 set the condition codes in the PSL 
FD85 1 Q043c 15 ¢ BRwW NORMAL _EXIT 3 done 
gt ae 
Oe ; 13 5 3 41 ADDF3 - Add F_floating (Three Operands) 
43F 15 $ INST_ADDF 3: ; entrance 
43F 13 8 SET_OP_TYPES F 
ret 1 BRB INST_ADDx3 mae 
44 1590 ° 
ret 1591 ; ; 
rt ! 35 3 61 ADDD3 - Add D_floating (Three Operands) 
445 1594 INST_ADDO3: ; entrance 
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44s 1595 SET_OP_TYPES D 
OA 11 0449 159 BRB INST_ADDx3 
448 159 
448 1598 ; 
ret 1233 3 41FD ADDG3 - Add G_floating (Three Operands) 
448 1601 INST_ADDG3: : entrance 
448 1606 SET_OP_TYPES G 
04 11 44F 160 BRB INST_ADDx3 
33) 1604 
451 1605 : 
Bee) 1906 3 61FD ADDH3 = Add HFLOAT (Three Operands) 
0451 1608 INST_ADDH3: ; entrance 
0451 1609 SET_OP_TYPES uM 
0455 1610 7 BRB INST_ADDx3 
0455 1611 
0455 1616 INST_ADDx3: 
OA6B 30 0455 161 BSBW READ_ACCESS ; first operand is read only 
ODC9 0 0458 1614 BSBW UNPACK_FLOAT1 3 unpack and save the value 
0OA65 0 0458 1615 BSBW READ_ACCESS 3; second operand is read only 
0DCc9 0 0Q45E 1616 BSBW UNPACK_FLOAT2 3 unpack and save the value 
0A68 30 0461 1617 BSBW WRITE_ACCESS ; third operand is write only 
E7 AD 5B D0 0464 1618 MOVL R11, ABDDRESS1 (FP) 3 save the destination address 
1183 30 0468 1619 BSBW ADD_REAL 3; compute the sum 
OEA6 30 0468 1620 BSBW PACR_FLOAT1 3 pack the sum 
5B —7 AD DO 046 1621 MOVL ADDRESS1(FP),R11 ; R11 = destination location 
1043. 30 047 16 § BSBW STORE. OPERAND ; store the result 
16C7 =—30 0475 162 BSBW SET_CONDITION1 3 set the condition codes in the PSL 
FD49 «31 «0478 «1624 BRW NORMAL _EXIT ; done 
047B 1625 
047B 1626 H 
0478 1627 : 7CFD CLRO = Clear Octaword 
047B 1628 ; 
0478 1669 : 7CFD CLRH = Clear H_floating 
047B 1630 : 
047B 1631 INST_CLRO: 3 entrance 
0478 1636 SET _OP_TYPES 0 
OASA 30 O47F 163 BSB0 WRITE_ACCESS ; first operand is write only 
8B 867C bebe 1634 CLRQ (R11)# ; clear the first part of the value 
68 7C 0484 1635 CLRQ (R11) ; clear the second part of the value 
54 AD OF CA 0486 1636 pitts #PSLM_NZV,PSL(FP) ; clear the condition codes except C 
54 AD 04 8 048A 1637 BISL2 #PSLM7Z,PSL(FP) : set the Z bit in the PSL 
FD33— 31 48k 1638 NORMAC_EXIT : done 
0491 1639 
491 1640 : 
491 1641 ; 51 CMPF = Compare F_floating 
491 1966 . 
491 1643 INST_CMPF: ; entrance 
491 1644 SET_OP_TYPES _F 
10 =+121 495 1645 BRB INST_CMPx 
0497 1968 
497 164 ; 
497 1943 : 71 CMPD - Compare D_floating 
497 164 : 
497 1650 INST_CMPO: 3 entrance 
497 1651 SET_OP_TYPES 0D 
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OA 11 498 1636 BRB INST_CMPx 
49D 165 
49D 1654 ; 
49D 1655 3 51FD CMPG = Compare G_floating 
49D 1928 : 
49D 1657 INST_CMPG: ; entrance 
490 1658 SET_OP_TYPES G 
04 11 Q46A1 1659 BRB INST_CMPx 
04A3 1660 
Q4A3 1661 ; 
O4A 1996 : 71FD CMPH - Compare H_floating 
4A3 166 : 
4A35 1664 INST_CMPH: ; entrance 
4A3 1665 SET_OP_TYPES H 
04A7 1666 ;BRB  ~ INST_CMPx 
O4A7 166 
04A7 1668 INST_CMPx: 
OA19 30 Q4A7 1669 BSBW READ_ACCESS ; first operand is read only 
0077 30 OQ4AA 1670 BSBW UNPACK_FLOAT1 z unpack and save the value 
OA13) 30 Q4AD 1671 BSBW EAD_AC 3 second operand is read only 
0077 30 0480 19/6 BSBW UNPACK_FLOAT2 3 unpack and save the value 
51 C7 AD 9E 0483 167 MOVAB OPERAND1(FP),R1 ; R1 = location of first value 
52 AF AD 9E OQ4B7 1674 MOVAB OPERAND2(FP),R2 3; R2 = Location of second value 
16AC 930 0488 1675 BSBW COMPARE REAL ; compare the values 
165F 30 OQ4BE 1676 SET_CONDITION ; set the condition codes _ 
54 AD 03 CA O04C1 1677 BICL2 #PSCM_VC,PSL(FP) ; clear the V bit and C bit in the PSL 
31 04C5 1678 NORMAC_EXIT ; done 
04C8 1679 
04C8 1680 : 
04C€8 1681 ;: 4C CVTIBF - Convert Byte to F_floating 
04C8 1o8e : 
04C8 1683 INST_CVTBF: 3 entrance 
04C8 1684 SET_OP_TYPES _B,F 
56 11 O4CE 1685 BRB INST_CVTBx 
0400 1686 
04D0 1687 ; : 
0400 1688 3 6C CVTBD - Convert Byte to D_floating 
04D0 1689 : 
04D0 1690 INST_CVTBD: ; entrance 
BeRe 1691 SET_OP_TYPES B,D 
4E 11 4D6 1038 BRB INST_CVTBx 
408 169 
408 1694 : . 
rie 1695 ; 4CFD CVTBG = Convert Byte to G_floating 
408 1696 : 
408 1697 INST_CVTBG: > entrance 
4D8 1698 SET_OP_TYPES _B.G 
46 = 11 4D 19%? BRB INST_CVTBx 
4—E0 1700 
04E 444) 3 ‘ 
Ree 1706 : 6CFD CVTBH = Convert Byte to H_floating 
4EO 1704 INST_CVTBH: ; entrance 
4E0 1705 SET_OP_TYPES _B.H 
3€ 11 4E6 17 § BRB INST_CVTBx 
4E8 17 
4—€8 1708 ; 
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4E8 1709 3 4D CVTWF = Convert Word to F_floatin 
46E8 1710 ; _ . 
4E8 1711 INST_CVTWF: 
4E 6 SET_OP_TYPES WF 
360 O11 rt 171 BRB INST_CVTWx 
O4FO 1714 
Ree 1715 ; 
res at 3 6D CVTWD = Convert Word to D_floating 
Oct 1718 INST_CVTWD: 
O4F0 1719 SET_OP_TYPES _W.D 
2E 3611 O46F6 1720 BRB INST_CVTWx 
O4F 1721 
O4F8 17 § 3 
Ocr 5 4 ‘ 4DFD CVTWG = Convert Word to G_floating 
O4F8 1725 INST_CVTWG: 3 entrance 
O4F8 1726 SET_OP_TYPES WG 
26 «611 «+O4FE 1727 BRB INST_CVTWx 
0500 1728 
$800 1586 ; 6DFD CVTWH = C Word H_fl i 
: - Convert Word to oatin 
$288 TF ust cvtim ati: 
) : 3 entrance 
0500 1535 SET_OP_TYPES W.H 
1E 11 0506 1734 BRB INST_CVTWx 
0508 1735 
$808 1539 : 4E CVILF C L F_fl i 
: - Convert Long to F_floatin 
0508 1738 ; . : 
0508 1739 INST_CVTLF: 3 entrance 
0508 1740 SET_OP_TYPES Lf 
16 11 QOSOE 1741 BRB INST_CVTLx 
0510 17g 
0510 174 : 
0510 1744 ; 6E CVTLD - Convert Long to D_floating 
0510 1745 ; 
0510 1746 INST_CVTLD: 3 entrance 
0510 1747 SET_OP_TYPES L,D 
OE 11 0516 1748 BRB INST_CVTLx 
0518 1749 
0518 1750 ; 
p213 Hay : 4EFD CVTLG - Convert Long to G_floating 
$818 1588 INST_CVTLG: 3 entrance 
pete 1754 SET_OP_TYPES L.G 
06 «(11 At 1755 BRB INST_CVTLx 
0350 1759 
03 0 1738 3 6EFD CVTLH = Convert Long to H_floating 
05 6 1760 INST_CVTLH: ; entrance 
520 1761 SET_OP_TYPES L.H 
526 1766 7 BRB INST_CVTLx 
526 176 
526 1764 INST_CVTBx 
526 1765 INST_CVTWx: 
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2 6 1766 INST_CVTLx: 
99A 33 3 176 BSBW READ_ACCESS ; first operand is read only 
FCO 0 Q5 1768 BSBW FLOAT_LONG 3; convert to floating and save value 
8B AD 6 52C 176% INCL OP_INBEX (FP) ¢ move to second operand 
099A Sef 1770 BSBW WRITE_ACCESS 3 second operand is write only 
E7 AD 5B 0 0532 1771 MOVL R11,ABDRESS1(FP) 3; save the destination address 
0DDB Q 0536 ire BSBW PACK_FLOAT1 3; pack the value 
5B €7 AD 0 0539 177 MOVL ADDRESS1(FP),R11 ; R11 = destination location 
OF 78 0 Q53D 1774 BSBW STORE _OPERAND ; store the result 
15FC 0 240 1775 BSbw SET_CONDITION1 3 set the condition codes in the PSL 
| FC7E 1 054 1276 BRW NORMAL _EXIT ; done 
| B206 177 
546 1778 3 
| 0546 1779 3 48 CVTFB = Convert F_floating to Byte 
0546 1780 : 
0546 1781 INST_CvTfB: 
| 0546 1788 SET_OP_TYPES F,B 
58 11 Q546C 178 BRB INST_CVTxB 
| 054E 1784 
O54E 1785 : : 
054E 1786 5 68 CVTOB = Convert D_floating to Byte 
054E 1787 : 
054E 1788 INST_CvTbB: 
O54E 1789 SET_OP_TYPES D,B 
50 11 0554 1790 BRB INST_CVTxB 
| 0556 1791 
0556 1736 ; : 
0556 179 3 48FD CVTGB - Convert G_floating to Byte 
0556 1794 . 
0556 1795 INST_CVTGB: 
0556 1796 SET_OP_TYPES  G.B 
48 11 055¢ 1797 BRB INST_CVTxB 
055€ 1798 
O55E 1799 ; : 
OSSE 1800 : 68FD CVTHB - Convert H_floating to Byte 
OSS5SE 1801 : 
055 1808 INST_CVTHB: 
O55E 180 SET_OP_TYPES H,B 
40 11 0564 1804 BRB INST_CVTxB 
| 0566 1805 
0566 1806 ; 2 
0566 1807 : 49 CVTIFW - Convert F_floating to Word 
| 0566 1808 : 
0966 1809 INST_CVTFW: 
566 1810 SET_OP_TYPES FW 
38 11 Q56C 1811 BRB INST_CVT x 
| The 1si¢ 
56E 181 : ‘ 
yt: 13i% ; 69 CVTDW = Convert D_floating to Word 
| 56E 1 16 INST_CVTOW: 
25F 181 SET_OP_TYPES D,W 
30.~—= ‘11 574 1 3 BRB INST_CVTxW 
576 181 
576 1820 3 . 
0376 1821 : 49FD CVTGW = Convert G_floating to Word 
576 1822 ; 
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576 1823 INST_CVTGw: 
576 1824 SET_OP_TYPES _G,W 
11 57C 1825 BRB INST_CVTxW 
57E 1 § 
57E 1 : 
O37 : 8 : 69FD CVTHW = Convert H_floating to word 
57E 1830 INST_CVTHW: 
O57E 1831 SET_OP_TYPES _H,W 
11 p28? 1 ¢ BRB INST_CVTxW 
0586 1 
82 4 : 2 : GA CVTFL C ; i 
: - Convert oating to Lon 
0386 1836 . : : 
0586 1837 INST_CVTFL: 
0586 1838 SET_OP_TYPES FAL 
11 O58¢C 1839 BRB INST_CVTxL 
OS8E 1840 
babe 1842 : 6A CVTDL ~ C D_fl i 
; ~ Convert oating to Lon 
OSBE 1843 : * : 
058 1844 INST_CVTOL: 
O58E 1845 SET_OP_TYPES _D,L 
11 0594 1846 BRB INST_CVTxL 
0596 1847 
0596 1848 
0596 1849 ; 4AFD CVTIGL = Convert G_floating to Leng 
0596 1850 : 
0596 1851 INST_CVTGL: 
0596 185¢ SET_OP_TYPES _G,L 
11 O59C 185 BRB INST_CVTxL 
OS9E 1854 
059E 1933 3 
O59E 1856 ; 6AFD CVTHL - Convert H_floating to Long 
Q59E 1857 ; 
O59E 1858 INST_CVTHL: 
059E 1859 SET_OP_TYPES _H,L 
11 O5A4 1860 BRB INST_CVTxL 
OSA6 1861 
QSA6 1 o¢ INST_CVTxB: 
OSA6 1863 INST-CVTxW: 
05A6 1366 INST_CVTxL: 
0 QO5A6 1865 BSBW READ_ACCESS ; first operand is read only 
0 Rear 1 66 BSBW UNPATK_FLOAT1 3 unpack and save the value 
6 QOSAC 186 INCL OP_INDEX(FP) ; move to second operand 
0 OSAF 1868 BSBW WRITE_ACCESS : second operand is write only 
DO 0582 1 $2 OVL R11, ADDRESS1 (FP) ; save the destination location 
gh b2ee 1870 BICL2 #PSLM_NZVC,PSL(FP) ; clear the condition codes 
0 OQSBA 1871 BSBW FIX_R 3: fix the value 
91 8280 1 i CMPB Oye POE EPP) ATP ; case on datatype 
14 QO5C1 187 BGTR 0$ : skip if longword 
13 05€3 1874 BEQL 10$ 3; skip if wor 
F6 O5C5 1875 CVTILB = RO, RO 3; convert long to byte 
11 05¢B 1876 BRB 20$ : continue 
F7 QSCA 1877 108 CVTLW = =RO,RO ; convert long to word 
if tp 1 4 208 BVC 30 : no overflow - skip 
C CF 187 BISL2 #PSLM_V,PSL(FP) ; indicate integer overflow 
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5B E7 AD 0 Q5D3 1880 30S: MOVL ADDRESS1(FP) ,R11 ; get address of result | 
OEDE 8 0307 1881 SBW STORE _OPERAND ; Store the result | 
| 154 SDA 1 ¢ BSBW SET CONDITION ; set the condition codes 
FBES 1 Q5DD 1 RW NORMAL _EXIT ; done 
OSEO 1884 
05E0 1885 ; | 
OSE } § : 56 CVTFD = Convert F_floating to D_floating 
SEQ 1888 INST_cvTfo: | 
O5EO 1889 SET_OP_TYPES F,D 
| 46 11 05E6 1890 BRB” ~ INST_CVTxy | 
Bees 1891 
O5E8 199 ; 99FD CVTFG = Convert Floating to G_floating 
OSEB 1894 
0568 1895 INST_cvtf: ; entrance 
OSE8 1896 SET_OP_TYPES F,G 
3E 11 OSEE 1897 BRB™ INST _CVTxy 
OSFO 1898 
OSFO 1899 ; 
05FO 1900 ; 98FD CVTFH = Convert F_floating to H_floating 
OSFO 1901 
O5F0 1306 INST_ cvtéu: 3; ntrance 
OSFO 190 SET_OP_TYPES F,H 
3611 «O5F6 1904 BRB~ ~ INST_CVTxy 
| 05F8 1905 | 
O5F8 1906 ; | 
O5F8 1907 ; 76 CVTIDF = Convert D_floating to H_floating 
OSF8 1908 
O5F8 1909 INST_CVTOF: 3 entrance 
O5F8 1910 SET_OP_TYPES DF 
2E 11 «O5FE 1911 BRB” ~ INST_CVYxy | 
0600 1316 
0600 191 : , 
0600 1914 : 32FD CVTDH = Convert D_floating te H_floating 
0600 1915 
0600 1916 INST_CV VTOH: | 
0600 1917 SET _OP_TYPES DH 
26 «6°11 0606 1918 BRB” INST _CVTxy 
0608 1919 
0608 1920 : : 
0608 1921 ; 33FD CVIGF - Convert G_floating to F_floating 
0608 19 ; 
0608 1993 INST_CVTGF: 
| 608 1924 SET_OP_TYPES _G,F | 
1E 11 Q60E 1925 BRB” INST_CVTxy 
0610 1926 
0610 1927 ; | 
0610 1928 : 56FD CVTGH - Convert G_floating to H_floating 
0610 1929 | 
0610 1980 INST_cvTGH: | 
061 1931 SET_OP_TYPES G,H 
| 16 11 0616 19% BRB” ~ INST_CVTxy | 
618 19 
618 1934 ; | 
061 1382 ; FOFD CVTHF - Convert H_floating to F_floating 
0618 1936 : 
| 
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p618 1937 INST_CVTHF: 
18 19 § SET_OP_TYPES H,F 
OE 11 O61E 19 BRB INST_CVTxy 
6 1940 
0620 1941 : | 
| 88 1308 : F7FD CVTHD = Convert H_floating to D_floating 
0620 1944 INST_CVTHD: | 
0620 1945 SET_OP_TYPES _H,D 
06 11 0626 1946 BRB INST_CVTxy 
06 194 
| 86 1368 : 
be 1305 3 76FD CVTHG = COnvert H_floating to G_floating 
0628 1951 INST_CVTHG: 
0628 195¢ SET_OP_TYPES _H,G 
O62E 195 7BRB INST_CVTxy 
062E 1954 
O62E 1955 inst CVT ay 
0892 30 OQ62E 1956 BSBW READ_ACCESS ; first operand is read only 
OBFO 30 0631 1957 BSBW UNPATK_FLOAT1 3 unpack and save the value 
8B AD D6 0634 1958 INCL OP_INDEX(FP) 3 move to second operand | 
0892 30 0637 1959 BSBW WRITE_ACCESS 3 second operand is write only 
E7 AD 5B 00 O63A 1960 MOVL R11, ABDDRESS1(FP) 3; save the destination location 
0cD3 30 O63E 1961 BSBW PACK_FLOAT1 3 pack the value 
58 E7 AD DO 0641 1306 MOVL ADDRESS1(FP),R11 ; R11 = destination location 
QE70 30 0645 196 BSBW STORE OPERAND ; store the result 
14F4 30 0648 1964 BSBW SET_CONDITION1 3 set the condition codes in the PSL 
FB76 = 331 (064B «(1965 BRW NORMAL _EXIT ; done 
064E 1966 
064E 1967 : 
064E 1968 ; 4B CVTRFL = Convert Rounded F_flozting to Long 
064E 1969 : 
064E 1970 INST_CVTREFL: 
064E 1971 SET_OP_TYPES FL 
16 11 0654 1376 BRB INST_CVTRxL 
0656 197 
0656 1974 3 , 
0656 1975 ; 6B CYTRDL - Convert Rounded D_floating to Long 
0656 1976 : 
0656 1977 INST_CVTROL: 
0656 1978 SET_OP_TYPES _D.L 
OE 11 065C 1979 BRB INST_CVTRxL 
65E 1980 
65E 1981 3 
65—E 19 ¢ 3 4BFD CVTRGL - Convert Rounded G_floating to Long | 
65E 198 : 
| 65E 1380 INST_CVTRGL: 3 entrance 
65E 1985 SET_OP_TYPES G.L 
06 11 0664 1986 BRB INST_CVTRxL 
0666 19 
666 1988 : ‘ 
666 19 ; : 6BFD CVTRHL - Convert Rounded H_floating to Long | 
| $e 1991 INST_CVTRHL: 3 entrance 
Boge 1336 SET_OP_TYPES H,L 
| 66C 199 sBRB ~ INST_CVTRxL 
| 
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| Got 1994 | 
t; 1995 INST _CVTRxL: 
0854 0 066C 1338 BSBW READ_ACCESS : first operand is read only 
| 0BB2 30 OF 199 BSBW  UNPACK FLOAT ; unpack the value 
| 8B AD b8 6 1998 INCL OP_INDEX(FP) 3 move to second operand 
0854 0675 1999 BSBW WRITE_ACCESS ; second operand is write only 
l 7 AD 5B DO 067 000 OVL R11,ADDRESS1 (FP) 3 save the destination location 
4 AD OF A 067C 2001 BICL2 #PSLM_NZVC,PSL(FP) ; clear the condition codes | 
OEF5 0 06 O08 SBW ROUND REAL 3 round the value 
—7 BD 50 8 06 00 MOVL RO, @ADDRESS1 (FP) 3 output the value 
| 1496 0687 2004 BSBW  SEf_CONDITION ; set the condition codes 
FB37 1 Rosa 005 BRW NORMAL _EXIT ; done 
68D B06 
068D 200 ; - 
| 068D 2008 ; 46 DIVF2 = Divide F_floating (Two Operands) 
068D 2009 : 
068D 2010 INST_DIVF2: 
068D 2011 SET_OP_TYPES _F 
10 11 0691 O1g BRB INST_DIVx2 
0693 201 
0693 2014 3 
0693 2015 3 66 DIVD2 - Divide D_floating (Two Operands) 
0693 2016 : 
0693 2017 INST_Divb2: 
0693 2018 SET_OP_TYPES D 
OA 11 0697 2019 BRB INST_DIVx2 
0699 2020 
0699 8s) 3 
0699 20 § : 46FD DIVG2 - Divide G_floating (Two Operands) | 
0699 202 : | 
0699 2024 INST_DIVG2: 
0699 2025 SET_OP_TYPES G 
04 11 069D 2026 BRB INST_DIVx2 
069F sper 
Q69F 2028 ; : : 
O69F 2029 3 66FD DIVH2 - Divide H_floating (Two Operands) 
069F 2030 : 
069F 2031 INST_DIVHe: 
069F O36 SET_OP_TYPES H 
6A3 203 ;BRB ~ INST_DIVx2 
6A 034 
Q6A 035 INST_DIVx2: ; entrance ; | 
081D 0 OQ6A 036 BSBW READ_ACCESS ; first operand is read only 
pee? 0 06A 8 7 BSBW UNPACK_FLOAT3 3 unpack and save the value 
0829 30 06A 8 BSBW  MODIFY-ACCESS : second operand is modified | 
E7 AD 38 4 6A 039 MOVL R11, ADBRESS1 (FP) 3 save the destination location 
087 68 040 BSBW UNPACK_FLOAT2 ; unpack and save the value | 
| 119¢ 30 0683 2041 BSBW © DIVIDE~FLOAT : compute the quotient | 
9C58 0 068 beg BSBW PACK _FCOATI 3 pack the result : | 
| 5B EZ AD 00 0689 204 MOVL  ADDRESS1(FP) R11 : R11 = destination Location | 
ODF8 6BD 2044 BSBW  STORE_OPERAND : store the result | 
147C 0 eco 45 BSBW SET_CONDITION1 : set the condition codes in the PSL 
FAFE 1 06C #8 BRW NORMAL _EXIT 3; done 
6C6 204 
6Cé6 rt ° ¢ | 
th} $3 : 47 DIVF3 - Divide F_floating (Three Operands) 
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6C6 
6C6 
11 Q6CA 
6cc 
6CC 
6cC 
6CC 
6cC 
6cc 

11 060 
6D 

B98 

6D 

06D 

06D 
06De 
11 0606 
0608 
0608 
set 

06D 
0608 
0608 
06DC 
06D 
06D 

30 06DC 
30 O6DF 
30 tt 

30 06E 
30 068 
0 RvEe 
QO O6EF 
0 bere 

BS 's¢ 
0 O06F9 
30 O6FC 
31 O6FF 
70 

70 

70 

70 

4 

0 70 
Q 0711 
6 714 
717 
90 OQ7IA 
71E 

721 
724 
0 0727 
gS te 
E ? i 
E 736 


1 INST_DIVF3: 
§ SET_OP_TYPES F 
BRB™ INST_DIVx3 
28 
28 ; 67 DIVD3 - Divide D_floating (Three Operands) 
098 INST _pivb3: 
05 SET_OP_TYPES 
060 BRB™ INST _pivs3 
62 
O68 ; 47FD DIVG3 - Divide G_floating (Three Operands) 
065 INST _pivé3: 
B68 SET_OP_TYPES 
06 BRB™ INST ives 
8 
$4 ; 67FD DIVH3 - Divide HFLOAT (Three Operands) 
144 INST _pivi3: 3 entrance 
07 SET OP_TYPES 
or 7BRB INST _pivx3 
076 INST pve: 
077 READ_ACCESS ; first operand is read only 
078 Beeu UMP ACK FLOAT3 ; unpack and save the value 
079 BSBW READ_ACCESS ; second operand is read only 
080 BSBW GHPACK FLOAT2 ; unpack and save the value 
081 BSBW wey TE ACCESS ; third operand is write onl 
0 ¢ MOVL 1 ABDRESS3 (FP) ; save the destination location 
0 BSBW DIV ADE E_FLOAT ; compute the onyat tent 
084 BSBW FCOAT1 3 peck the re 
085 MOVL ADDRESS) (FP), ; destination Location 
086 BS3awW STORE_OPERAND 3; store the res 
087 BSBW SET FOND I TION ; set the comnttinn codes in the PSL 
088 BRW NORMAL _EXIT 3; done 
5 
94 : 54 EMODF - Extended Modulus F_floating 
$98 INST _EMODF : 
Bae SET_O P_TYPES F,BF,L.F 
95 BSBQ ~ READ_ACCESS- : first operand is read only 
44: SBW UNPACK_FLOAT2 3 unpack and save the operand 
97 INCL OP_INDEX(FP) 3 move to second operand 
098 BSBW mER CCESS 3 second operand is read only 
099 MOVB RO,FRACTION2 ; insert bits 0-7 of the frartion 
100 INCL oP EX(FP) 3; move to third operand 
101 BSBW READ_ACCESS $ third operand is read only 
1 § BSBW UNPACK_ FLOAT - ynpact and seve the value 
1 MOVB #FLAGOA, FLAG 3 ibit checking for local store 
104 INCL OP_ INDEX (FP) : aoe to fourth operand 
105 BSBW WRITE_ACCESS : fourth gperand is write only 
1 $ BBCC #FLAGT, FLAGS 3; not register mode - skip 
1 BBCS #FLAG7, FLAGS 3; make a note 
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| E7 AD. 5B 00 o38 198 1$: MOVL R11, ADDRESS1 (FP) 3; save the first destination address 
88 AD b6 73F 01 INCL OP_{NDEX(FP) : move to fifth operand 
| 78 the itd Seu WRITE ACCESS : fifth operand is write only 
E3 AD 0 074 11 MOVL R11, ABDRESS2(FP) 3 save the second destination address 
OFF 0 0749 116 BSBW MULFIPLY FLOAT * compute the product 
DB AD 50 00 00 FO O74¢ 211 INSV. #0,#0,RO7FRACTIONI+12(FPS; truncate the product if necessary 
’ 54 AD OF A 075 114 BICL2 #PSLm NZVC,PSL(FP) ; clear the condition codes 
ODCcB 0 075 115 SBW 4h REAL 3 fix the product 
DF AD 50 0 13 118 MOVL RO, ADDRESS3(FP) 3 save the integer part 
0687 30 075d 211 BSBW FRACTION REAL : form the fractional part 
0881 0 076 118 BSBW PACK_FLOAT 3 pack the fraction value 
8 DD 076 11 PUSHL RO 3; push the fraction 
05 FC AD E1 076 120 BC #FLAG7,FLAGS(FP) ,2$ ; fourth operand not register - skip 
E7 BD OF dO Bren 121 MOVL ADDRESS3(FP) ,@ADDRESSI(FP) ; output the integer part 
04 FC AD O01 €1 O76F 21 ¢ 2$: BBC #FLAG1,FLAGS(FP) ,3$ : fifth operand not register - skip 
€3 BD 8—& DO 0774 21 MOVL (SP) +, @ADDRESS2(FP) : output the fraction 
50 04 D0 0778 2124 38: MOVL #4,R ; allow room for dummy store 
FB5C 3=—30 «(0778 «2125 BSBW TEST FRAME i; move the frame if necessary 
OE FC AD O7~ €0 pre 126 BBS #FLAG7, FLAGS(FP) ,4$ ; fourth cperand is register - bypass 
5A 04 00 078 127 MOVL RI ; R10 = size of ee part 
5B E7 AD DO 0786 2128 MOVL ADDRESS1(FP),R11 ; R11 = location of fourth operand 
OA80 30 O78A 2129 BSBW LOCAL 2 : check for a store into local storage 
6B DF AD DO O078D 2150 MOVL ADDRESS3( FP), (R11) 3; output the integer part 
OD FC AD O01 4+E€O 0791 131 4$: BBS #FLAG1,FLAGS(FP),5$ : fifth operand is register - bypass 
A 04 pO 0796 136 MOVL #4,R10 ; R10 = size of the fraction 
5B €3 AD ° 0799 213 MOVL ADDRESS2(FP) R11 ; R11 = location of second operand 
OA6D 0 079D 2134 BSBW LOCAL_TEST ; check for a store into local storage 
8E D0 Brae 135 MOVL (SP)+, (R11) 3; output the fraction 
51 C7_AD 9€ O7A 136 5$: MOVAB OPERAND1(FP),R1 ; R1 = location of the fraction 
13A 30 O7A7 2137 BSBW TEST_REAL ; test the fraction 
137 30 O7AA 2138 BSBW SET CONDITION 3 set the condition codes 
FA14 31 O7AD 139 BRW NORMAL _EXIT ; done 
bras gi 
ta 136 : 74 EMODD - Extended Modulus D_floating 
0780 2144 INST_EMODD: 
0780 2145 SET_OP_TYPES D,B,D0,L.D 
0704 30 OQO7BC 2146 BSB0 READ_ACCESS ; first operand is read only 
OA68 30 O7BF 2147 BSBW - UNPACK _FLOAT2 : unpack and save the operand | 
AD 06 ae 148 INCL OP_INDEX(FP) ; move to second operand 
6F 30 O7C 149 BSBW READ_ACCESS 3 second operand is read only 
BF AD 50 90 O7C8 2150 MOVB RO, FRACTION2+8(FP) : insert bits 0-7 of the fraction | 
11 Ore 133 BRB COMMON_EMODdg 3; join common D/G code 
7CE 215 : | 
Bock 138 : 54FD EMODG - Extended Modulus G_floating 
prce 138 INST_EMODG: 3 entrance | 
7CE 15 SET_OP_TYPES G,W,G,L,G 
06E6 Hi O7DA 138 BSB0 READ_ACCESS : first operand is read only 
OA4A 0 O7DD 215 BSBW UNPACK_FLOAT2 3 unpack and save the operand 
AD 6 43 160 INCL OP_INDEX (FP) 3 move to second operand 
ee ee ae : BerrtecPateraaae setae Toes | 
; position the -order 
er a> 6B (00 «50 «FO OFEA 168 INSV RO,#0, 411 FRACTION2+B(FPS | insert bits Or10 of the fraction 
7FO 2164 COMMON_EMODdg: 
| 


a — 
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8B AD 6 O7F 165 INCL OP_INDEX(FP) ; move to third operand 
oop : Fe 196 BSBW READ_ACCESS ; third operand is read only 
A 8 ore 16 BSBW UNPACK FLOATS : unpack and save the value 
FC AD 01 7F 168 MOVB #FLAGOM, FLAGS (FP) ; inhibit checking for local store 
68 Ap be 7FD 197 INCL OP_INDEX(FP) 3; move to fourth operand 
6C 0 170 BSBW WRITE_ACCESS : fourth operand is write only 
05 FC AD :- 0 171 BBCC FLAGT,FLAGS(FP),1$ i not register mode = skip 
00 FC AD eS 0 Ze BBCS #FLAG7,FLAGS(FP),1$ ; make a note 
E7 AD B 00 baie 173 1$: MOVL R11, ADDRESS1(FP) i save the first destination address 
8B AD B6 11 2174 INCL OP_{NDEX(FP) ; move to fifth operand 
0685 0814 2175 BSBW WRITE_ACCESS : fifth operand is write only 
E3 AD 38 4 pale 176 MOVL R11, ABDRESS2(FP) 3; save the second destination address 
OF 21 1B 217 BSBW MULETPLY FLOAT ; compute the product 
D7 AD }650)=—(00s—(«C00sti‘=‘FODsC#OBIE §=2178 SV #0,#0,RO,FRACTIONI+8(FP); truncate the product if necessary 
54 AD OF cA 0824 2179 BICL2 #PSLM’NZVC,PSL(FP) ; clear the condition codes 
OCF9 0 0828 2180 SBW 'y R 3: fix the product 
DF AD 4 8 0828 2181 MOVL RO, ADDRESS3(FP) i save the integer part 
0DB 0 O82F HY BSBW FRACTIO L : form the fractional part 
OADF 30 08 g 18 BSBW PACK_FL 3 pack the fraction value 
03 6B 083 184 PUSHR #*M<RO,R1> 3 push the fraction 
OS FC AD O07 #€1 0837 2185 BBC #FLAG7,FLAGS(FP) ,2$ ; fourth operand not register - skip 
E7 BD DF AD 00 O83C 2186 MOVL ADDRESS3(FP) ,@ADDRESSI(FP) ; output the integer part 
04 FC AD 01 4 0841 sige 2$: BBC #FLAG1,FLAGS(FP) ,3 : fifth operand not register - skip 
£3 BD 8E& 7D 0846 2188 MOVQ (SP) +,@ADDRESS2(FP) ; output the fraction 
50 08 00 O84A 2189 3$: MOVL #8,R ; allow room for dummy store 
FA8A 30 084D 2190 BSBW  - TEST_FRAME : move the frame if necessary 
OE FC AD O07 4=+EO O850 2191 BBS #FELAG7, FLAGS(FP) ,4$ ; fourth operand is register - bypass 
A 04 00 0855 135 MOVL »R1 ; R10 = size of integer part 
5B —7 AD 00 0858 219 MOVL ADDRESS1(FP),R11 ; R11 = Location of fourth operand 
O9AE 30 O85C 2194 BSBW LOCAL_TEST ; check for a store into local storage 
68 DF AD DO OQ85F 2195 MOVL ADDRESS3(FP), (R11) 3; Output the integer part 
OD FC AD 01 EO 0863 2196 4$: BBS #FLAG1,FLAGS(FP) ,5$ 3; fifth operand is register - bypass 
A 08 D0 0868 2197 MOVL #8,R10 ; R10 = size of the fraction 
5B E—3 AD 00 OQ86B 2198 MOVL ADDRESS2(FP) R11 ; R11 = location of second operand 
0998 8630 0895 199 BSBW LOCAL_TEST ; check for a store into local storage 
8E 7D 0 te 200 MOVQ (SP)+, (R11) 3 output the fraction 
51 C7 AD 9E 087 § 01 5$: MOVAB OPERAND1(FP),R1 ; R1 = location of the fraction 
12D0 30 bare 8 BSBW TEST_REAL 3; test the fraction 
12A1 30 O87C 0 BSBW SET CONDITION 3; set the condition codes 
F942 31 O87F 04 BRW NORMAL _EXIT 3; done 
088 205 
088 06 3 
088 07 : 74FD EMODH - Extended Modulus HFLOAT 
Hy $9 INST_EMODH: ; entrance 
88 10 SET_OP_TYPES H,W.H,L,H 
0632 38 88E 11 BSB0 READ_ACCESS : first operand is read only 
0996 0 0891 \¢ BSBw UNPACK_FLOAT2 3 unpack and save the operand 
AD 3 894 1 INCL OP_INDEX (FP) 3 move to second operand 
629 97 14 BSBW READ_ACCESS : second operand is read only ‘ 
50 50 IF C 9A 15 ROTL #31,R0,R 3 position the high-order 15 bits 
B7 AD OF 00 50 F0 9E 1 INSV RO,#0,41 gFRACTION2(FP) ; insert bits 0-14 of the fraction 
8B AD AS 201 INCL OP INDEX¢#P) : move to third operand 
$618 A7 \8 BSBW READ_ACZESS 3; third operand is read only 
983 AA 1 BSBW UNPACK_FLOAT3 3 unpack and save the value 
FC AD 01 AD $9 MOVB #FLAGOR FLAGS (FP) : inhibit checking for local store 
8B AD 06 1 1 INCL OP_INDEX(FP) ; move to fourth operand 
| 
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1$: MOVL 


2s: BBC 


3$: MOVL 


4$: BBS 


5$: MOVAB 
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INST_MNEGF : 
SET_OP_T 
BRB 


INST_MNEGD: 
SET_OP_T 
BRB 


INST_MNEGG: 
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E_ACCESS : 
#FLAGT FLAGS(FP),1$ 3 not register mode - ski 
ery her FLAGS(FP),1$ 3; make a note 

ADORESS1 (FP) + save the first destination address 
OP_{NDEX(FP) 3; move to fifth operand 
WRITE access ; fifth operand is write only 
R11, ABDRESS2(FP) 3 save the second destination address 
MULFIPLY ELOAT 3 compute the product 
#0,#0,RO,FRACTIONI(FP) ; truncate the product if necessary 
#PSLMNZVC,PSL (FP) : clear the condition codes 
ay REAL : fix the product 
RO, ADDRESS3(FP) 3 save the integer part 
FRACTION REAL : form the fractional part 
ACK_FLOAT1 3 pack the fraction value 
g R<D «RI Re .R3> ; push the fraction 
#FLAG7, FLAGS(FP) ,2$ ; fourth operand not register - skip 
ADDRESS3(FP) ,@ADDRESS1(FP) ; output the integer part 
#FLAG1,FLAGS(FP) ,3$ : fifth operand not register - bypass 
ADDRESS2(FP),R11 : R11 = Location of the register 
(SP)+,(R11)+ 3; output first part of the fraction 
(SP)+, (R11) 3; output second part of the fraction 
16,R6 3; allow room for dummy store 

f ME 3; move the frame if necessary 


TEST_FRA 
#FLAG7, FLAGS(FP) ,4$ 3 fourth operand is register - bypass 


#4,R ; R10 = size of waoger part 
ADDRESS1(FP),R11 ; R11 = Location of fourth operand 
LOCAL ite! 3; check for a store into local storage 
ADDRESS3S(FP) (R11) ; output the integer part 
#FLAG1,FLAGS(FP) ,5$ : fifth operand is register - bypass 
16,R1 ; R10 = size of the fraction 
ADDRESS2(FP),R11 3 R11 = Location of second operand 
LOCAL_TEST ; check for a store into local storage 
(SP)+,(R11)+ 3; output first part of the fraction 
(SP)+,(R11) 3 output second part of the fraction 
CPERAND1(FP),R1 3; R1 = location of the fraction 
TEST _REAL ; test the fraction 
SET CONDITION 3 set the condition codes 
NORMAL _EXIT ; done 


52 MNEGF - Move Negated F_floating 


YPES_ iF 
INST _MNEGx 


72 MNEGD - Move Negated D_floating 


YPES D 
INST _MNEGx 


52FD MNEGG - Move Negated G_floating 
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HFLOAT 


; first operand is read only 

; unpack and save the value 

; negate the value 

; second operand is write only 
; save the destination location 


ack the value 
11 = = deat ination Location 


; store the result 


16°S 
Instruction Emulation Routines §-§ 
948 79 SET_OP_TYPES G 
11 O94F 0 BRB™ INST_MNEGx 
951 1 
951 § H 
2) ? ; 72FD MNEGH = Move Negated 
951 5 INST _NNEGH: 
3) SEF hha TIRE med 
a 
0955 88 
955 89 INST_MNEGx: 
30 955 90 BSBW READ_ACCESS 3 
958 91 BSBW UNPACK_FLOAT1 5 
$5 0958 3 BSBW NEGATE _ REAL 3 
0 OQ95E o BSBW WRITE_ACCESS 3 
B? Bees 94 MOVL R11 ADDRESS (FP) : 
0 965 95 BSBW PA CkK_F LOAT1 ; 
dO Rpee 96 MOVL ADDRESST CFP) R11 s 
30 096C 97 BSBW STORE. OPERAND 5 
30 O96F 298 BSBW SET_CONDITION1 s 
31 0972 2299 BRW RORRAL WEXIT ; done 
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7EFD MOVAO = Move Address of Octaword 
; 7EFD MOVAH = Move Address of H_floating 
INST_MOVAO: ; entrance 
SET_OP_TYPES 0,L 
BSBO ~ ADDRESS_ACCESS ; first operand is address only 
MOVL R11, ADDRESS1 (FP) 3 save the operand address 
INCL OP_INDEX(FP) ¢ move to second operand 
BSBW WRITE_ACCESS ; second eperene is write only 
MOVL ADDRESS1(FP), (R11) 3 output the operand address 
SBW SET_CONDITION 3 capture the condition code 
BICL2 #PSCM_V,PSL(FP) ; clear the V bit in the PSL 
BRW NORMAC_EXIT : done 
: 50 MOVF = Move F_floating 
INST_MOVE : 
SET_OP_TYPES _F 
BRB INST_MOVx 
: 70 MOVD = Move D_floating 
INST_MOVD: 
SET_OP_TYPES D 
BRB INST_MOVx 
50FD MOVG - Move G_floating 
INST_MOVG: 
SET_OP_TYPES 
BRB INST_MOVx 
; 70FD MOVH = Move HFLOAT 
INST_MOVH: 


SET_OP_TYPES H 
7BRB INST_MOVx 


INST_MOVx: 
BSB READ_ACCESS 


; first operand is read only 
BSBW UNPACK FLOAT! 


; unpack and save the value 

; second operand is write only 
; save the destination location 
; pack the value 

= destination location 

; store the result 

; R1 = location of the value 

; test the value 

; set the condition codes 

: cheer the V bit in the PSL 

; done 


BSBW £ 
BSBW © SET_CONDITION 
BICL2 #PSCM_V,PSL(FP) 
BRW NORMAC_EXIT 
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44 MULF2 = Multiply F_floating ifwo Operands) 


64 MULD2 = Multiply D_floating (Two Operands) 


v04-00 
EMULATE .MAR; 1 


first operand is read only 

save the first part of the value 
save the second part of the value 
second operand is write only 
save destination iocation 
test the value 
set the condition codes 
clear the V bit in the PSL 
R11 = destination location 
output the first part of the result 
autun the second part of the result 
one 


44FD MULG2 - Multiply G_floating (Two Operands) 


64FD MULH2 - Multiply HFLOAT (Two Operands) 
3 entrance 


Rit 


904 58 
904 : 
904 60 : 7DFD MOVO = Move Octaword 
904 2361 : 
904 6¢ INST_MOvO: 
904 236 SET_OP_TYPES 0 
30 908 2364 BSBQ ~ READ_ACCESS 
D 09DB 2365 MOVQ RO, OPERAND1 (FP) 
7D O9DF 66 MOVQ R2,OPERAND1+8(FP) 
30 O9E3 236 BSBW #$WRITE_ACCESS 
0 0966 2368 MOVL R11, ADDRESS1(FP) 
0 O9EA $9 BSBW TEST OCTA 
0 O9ED 0 BSBW SET CONDITION 
CA O9FO 2371 BICL2 #PSCM_V,PSL(FP) 
DO O09F4 37¢ MOVL ADDRESS{(FP),R11 
7D O9F8 237 MOVQ OPERAND1(FP).(R11)+ 
7D O9FC 2374 MOVQ OPERAND1+8(FP), (R11) 
31 0A00 375 BRW NORMAL_EXIT 
OA0 376 
0A03 77 3 
QOA03 2378 ; 
OA03 2379 : 
OA03 2380 INST_MULF2: 
0A03 381 SET_OP_TYPES _F 
11 0A07 38¢ BRB INST_MULx2 
0A09 238 
OA09 2384 : 
OA09 2385 ; 
OA09 2386 : 
0A09 387 INST_MULB2: 
OA09 2388 SET_OP_TYPES 
11 OAOD 2389 BRB INST_MULx2 
OAOF 2390 
OAOF 3391 F 
OAOF 38 3 
OAOF 239 : 
OAOF 2394 INST_MULG2: 
OAOF 2395 SET_OP_TYPES 6G 
11 OA13 2396 BRB INST_MULx2 
0A15 : 97 
0A15 2398 : 
0A15 2399 ; 
0A15 2400 ; 
Ald 401 INST_MULH2: 
OA1 40¢ SET OP_TYPES H 
A19 240 ;BRB ~ INST_MULx2 
A19 2404 
A19 2405 INST_MULx2: 
0 0A19 406 BSBW  READ_ACCESS 
0 OAIC 240 BSBW UNPACK_FLOAT2 
0 OAIF 2408 BSBW MODIFY-ACCESS 
A22 2409 MOVL R11 ADDRESS1 (FP) 
A é 410 BSBW _- UNPACK_FLOAT 
A 411 BSBW MULTIPLY FLOAT 
0 OA2C 41g BSBW PACK FLOAT 
p60 AQF 241 MOVL ADDRESS1(FP),R11 
AS32414 BSBW TORE _OPERAND 


first operand is read onl 
unpack and save the firs 
second operand is modifi 
save the destination location 
unpack and save the second operand 
compute the product 
the value 


= destination location 
store the result 


y 
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v 
| 
11 0 OA 415 BSBW SET_CONDITION1 3; set the condition codes in the PS 
1788 3 A § $18 BRW NORMAL _EX1 ; done . 
ASC 241 
A3C 2418 ; 
| > : 138 ; 45 MULF3 = Multiply F_floating (Three Operands) 
OA € 2621 INST _muLt3: 
ASC 4 § SET_OP_TYPES 
10 11 OA4 4 BRB” INST “MULK3 
OAS 424 
OAS 425 : 
ane r § ; 65 MULD3 =- Multiply D floating (Three Operands) 
OA42 2428 INST _muLb3: 
OA4 429 SET_OP_TYPES 
OA 11 OAS&6 2430 BRB” INST _MULY3 
OAS8 2431 
yt 133 : 45FD MULG3 Multiply G_fl i (Th 0 ds) 
: - Mu oatin ree Operands 
| OAGR 3434 : ithe ° . 
0A48 2435 INST_MULG3: 
OAS8 2436 SET_OP_TYPES 
04 11 OA4C 437 BRB INST “MUL 
OASE 2438 
OASE 2439 3 
wee seat ; 65FD MULH3 - Multiply HFLOAT (Three Operands) 
OASE 2442 INST _MULH3: 
QASE 2443 SET_OP_TYPES 
OAS2 2444 7 BRB INST _MULKS 
OAS5S2 2445 
OA52 2446 INST_MULx3: 
046E 30 OQAS2 2447 BSBW READ_ACCESS :; first operand is read only 
07D2 30 OA55 3448 BSBW UNPACK FLOAT2 3 unpack and save the value 
0468 30 OA58 2449 BSBW READ_ACCESS : second operand is read only 
9702 30 OQOASB 2450 BSBW UNPACK_FLOAT3 3: unpack and save the value 
0468 30 OASE $t2) BSBW ait E_ACCESS 3; third operand is write onl 
E7 AD 5B 00 OQA61 126 MOVL | sADDRESST CEP) 3 save the destination location 
OCD? 30 QA65 245 BSBW nut fp PLY_FLOA : oon ute the product 
QO8A9 30 OA68 2454 BSBwW PAC FLORTA : _the value ; 
58 £7 AD 8 OA6B 2455 MOVL RDDRESSI FP) ght : if = destination location 
OA46 Q OA6F $i2$ BSBW STORE OPERAND ; store the result 
10CA 30 OA? 457 BSBW SET FOND ITT ONT : set the condition codes in the PSL 
F74C 3=—331—s—« OA? 458 BRW NORMAL _EXIT ; done 
OA7 459 
OA7 460 3 
A7 461 : 55 POLYF = Evaluate Polynomial F_floating 
A78 +66 
A78 24635 INST _POLYF 3 entrance 
A7B 2464 SET _OP_TYPES F,W.B8,F ; phantom fourth operand 
2—F 54 AD 1B €1 QA8 465 BBC” #PSL_FPD,PSL(FP),1$ 3 not instruction resumption - , bypass 
50 1C AD 18 8 EF OA8 466 XTZV #8, #24, REG _R2(FPS,RO ; RO = saved instruction Length 
| 50 AD 0 CO QA8B 2467 ADDL RO,REG_PC(FP) 3 position PC to end of instruction 
AD 0 80 OA8F $08 ADDB RO REGAOD PC(FP) : increment the PC modification count 
| 50 14 AD 20 A93 46 MOVL REG ROCFPY Kg : RO = result so far 
0790 A97 2470 BSBW  UNPACK_FLOAT : unpack and save the value 
51 AF AD 9E ASA 471 MOVAB OPERANDS CFP) «RI ; R1 = location of OPERAND2 


51 
(16) 
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10AB 33 ASE 247 BSBW —s TEST_REAL ; test the value , 
107C 0 OQAA 47 BSBW SET_CONDITION ; set the condition codes 
50 18 AD 8 AAG 2474 MOVL REG Fe er Agee ; RO = argument value 
0785 AAB 2475 BSBW UNPACK dirt 3 unpack and save the value 
1C AD s1F 1 QAAB o78 CMPB #31,REG_R2(FP) ; is the iteration count too large ? 
4" 1E QAAF 247 BGEQU§ 4$ 3 no - resume the instruction 
11D 1 QAB1 2478 BRwW OPERAND_FAULT 3 process the reserved operand 
040C 0 QABS 2479 1$ BSBW READ_ACTESS ; first operand is read only 
0776 0 OAB7? 2480 BSBW UNPACK_FLOAT3 3 unpack and save the value 
8B ap b8 OABA 2481 INCL OP_INDEX (FP) ; look at second operand 
040 0 pase t8¢ BSBW “~ ACCESS ; second operand is read only 
50 fF O01 aco 8 CMPL #31,R0 ; is the value reserved ? 
03 1€ OAC 484 BGEQU§§ 2$ 3 no - skip 
3 31 OACS 2485 GR OPERAND_FAULT 3; process the reserved operand 
E7 AD 50 00 OAC8 2486 28: MOVL RO, ADDRESS1(FP) ; Save the operand value 
AD g6 QACC 2487 INCL OP_INDEX(FP) ; look at third operand 
040C 0 OACF 2488 BSB DBRESS_ACCESS ; third operand is address only 
68 04 FD AD OC OAD 489 PROBER MODE(FPY,#4,(R11) ; can we read the first longword? 
06 12 OAD 490 BNE i: yes - skip 
5A 04 D0 OAD9 2491 MOVL #4,R10 ; R10 = size of probe 
10CC 30 OQADC $36 BSBW READ_FAULT 3 process the access violation 
50 8B DO OADF 2495 3$ MOVL (R113+,R0 ; RO = the first table entry 
E3 AD 5B DO OQOAE2 2494 MOVL R11, ADDRESS2(FP) ; save the following address 
AD D6 OAE6 2495 INCL OP_ INDEX (FP) 3; use ‘fourth operand” type for rest 
O73E 30 OAE9 2496 BSBwW UNPACK_FLOAT2 3 unpack and save the value 
058 30 OAEC 497 BSBW PACK_FCOAT2 3 pack the value 
14 AD 0 DO OAEF 2498 M RO,REG_ROCFP) 3; save the value in user's RO 
51 AF AD QE OAF3 2499 MOVAB OPERAND2(FP),R1 : R1 = Location of OPERAND2 
1036 30 OAF7 2500 W TEST_REAL ; test the value 
102 30 OAFA 2501 SET_CONDITION 3; set the condition codes 
54 AD 03 CA OAFD 206 BICL2 #PSCM_VC,PSL(FP) ; clear the V bit and C bit in the PSL 
20 AD €3 AD DO 0B01 250 OVL ADDRESS2(FP),REG_R3(FP) ; store next location in user's R3 
1C AD E7 AD DO OB06 2504 OVL ADDRESS1(FP),REG_R2(FP) ; save the remaining iteration count 
50 FA AD 98 OB0B 2505 CVTBL REGMOD_PC(FPS RO : RO = PC register modifications 
EB AD 7C OQBOF 2506 CLRQ REGMOD_RO(FP) ; clear modifications for RO to R7 
FS AD 7C pale 507 CLRQ REGMOD R8(FP) ; clear modifications for R8& to PC 
FA AD 50 90 081 508 MOVB RO,REGMOD_PC (FP) 3 put the PC modifications back 
50 07 0OB19 2509 DECL RO ; subtract the operation code length 
1C AD 618 O08 50 £0 baie 510 INSV RO, #8,#24 ,REG_R2(FP) ; save the value for resumption 
O7FC 30 0821 2511 BSBW = PACK_FLOAT3 > pack the argument value 
18 50 00 bass 218 MOVL RO,REG_R1(FP) 3 Save it for resumption 
0054 AD 1B €2 0828 251 BBSS  #PSL_FPD,PSL(FP) .4$ : indicate first part done in PSL 
1€ AD 95 OB2D 2514 4$: TSTB REG_R2(FP) ; more iterations to perform ? 
Hf 13 3 515 BEQL $ : no - finish up 
OCOA 30 516 BSBW CA TEPLY FLOAT :; multiply the result and argument 
50 06 0B3 517 INCL > increment the shift count 
DB AD «650 00 00 FO 0837 2518 INSV  #0,#0,RO,FRACTIONI+12(FP); truncate the product 
5B 20 AD 00 OB3D 2519 MOVL REG _RS(FP)R ; R11 = Location of next table entry 
68 04 FD AD OC 0841 2520 PROBER MODE(FP),#4, (R11) : can we read the next coefficient ? 
| Ee > 6 521 BNEQ 5$ 3 yes - skip 
| SA 4 B° 4 5 § MOVL #4,R10 ; R10 = size of probe 
1050 30 0848 25 BSBW = READ_FAULT ; process the access violation 
50 20 8D 4 524 5$: MOVL @REG_R3(FP),RO ; RO = next coefficient 
605 5 525 BSBW UNPACK_FLOAT2 ; unpack and save the value 
aCe 5 5 § BSB ADD_REAL s add the coefficient to the product 
4 58 25 BSBW PACR_FLOAT1 z pack the result so far 
14 AD 0 00 5B 2528 MOVL RO,REG_RO(FP) ; Save the value 
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Bree BSF 2529 BSBW UNPACK_FLOAT2 3 unpack the result for next srergs tan 
FDA BOe 0 BSBW SET CORD] T JONT 3 set the condition codes in the PSL 
20 AD 6046 «CC 6 1 ADDL2 #4 RES R3(FP) ; update the table pointer 
CAD 9 B69 ; DECB REG LR TFP) 3 decrement the iteration counter 
BF 11 OB6C 25 BRB 4 ; start the next iteration 
18 AD D4 Bet 534 6$: CLRL REG_R1(FP) ; clear the user's R1 
AD D& 0871 2535 CLRL REG R2(FP) ; clear the user's R2 
00 54 AD 1B § B74 25 8 BBCC #PSC_FPD,PSL(FP),7$ 3; indicate instruction complete 
F648 1 0879 2537 7$: BRW NORMAL _EXIT ; done 
perk 538 
B7C 2539 3 
pare 279 : 75 POLYD = Evaluate Polynomial D_floating 
0B7C 246 INST _POLYD: 3 entrance 
OB7C 254 SET_OP_TYPES D,W,B,D ; phantom fourth operand 
08 11 0884 544 BRB™ INST_POLY dg 
0B86 2545 
0B86 2546 ; 
0B86 2547 ; 55FD POLYG = Evaluate Polynomial G_floating 
0B86 2548 
0B86 2549 INST POLY G: 3 entrance 
0B86 2550 SET OP_TYPES G,W,B,G 3; phantom fourth operand 
OB8E 2551 7 BRB INST _POLYdg 
OB8E 225 
OB8E 255 INST POL Ydg: 
32 54 AD 1B €E1 343 554 BB oes FPD,PSL(FP),1$ ; not instruction resumption - bynes 
50 1C AD 18 O08 EF 0B93 2555 EXTZV 8.424, REG_R2(FPS,RO =: RO = saved instruction Length 
50 AD 50 CO 0B99 2556 ADDL2 ROR PC(FP) ¢ position PC to end of instruction 
FA AD 50 80 OB9D 2557 ADDB2 = RO REGAG OD_PC(FP) ; increment the PC modification count 
50 14 AD 7D OBA1 2558 MOVQ REG _ROCFPY,RO : RO,R1 = result so far 
0682 30 OBAS 2559 NP oath t FLOAT2 : unpack and save the value 
51 AF AD 9E OBA8 560 MOVAB OPERAND2(FP),R1 ; R1 = location of OPERAND2 
OF9D 30 OQBAC 2561 BSBW TEST_REAL 3; test the value 
OF6E 30 era 206 BSBW SET_CONDITION 3 set the condition codes 
50 24 AD 7D 2 256 MOVQ REG_R4(FP),R ; RO,R1 = argument value 
677 30 O0BB6 2564 BSBW UNPACK_FLOAT 3; unpack and save the value 
1C AD «61F 0 «691 «=0BB9 2565 CMPB #31,REG_R2(FP) : is the iteration count too large ? 
03 1 OBBD 2566 BGEQU 4$° 3: no - resume the instruction 
10¢6 31 OBBF 2567 BRW OPERAND_F AULT 3 process the reserved operand 
0081 1 gece 568 14$: BRW 4$ 
02FB 0 C 569 1$: BSBW READ_ACCESS ; first operand is read only 
0665 0 OBCc8 2570 BSBW yarnte FLOATS 3 unpack and save the value 
8B AD D6 OBCB 2571 INCL oP NDEX (FP ; look at second operand 
O2F2 30 pace 276 BSBW ait D mACeESS $ second operand is read jonly 
50 1F O01 D 57 CMPL ; is the value reserved ? 
03 =s6i1€ D4 2574 BGEQU 3 no - sk 
10AD ‘31 43 575 RW SE ERAND FAULT 3 process the reserved operand 
E7 AD 50 00 D 576 2$: MOVL RO, ADDRESS1(FP) 3 save the operand value 
AD 8 DD 2577 INCL OP_INDEX(FP) ; look at th rd operand 
02FB e9 278 BSBW ADBRESS AGSESS 3; third operand is address only 
68 08 FDAD OC E 57 PROBER MODE(FPY,#8,(R11) 3 can ve bry the first quadword ? 
88 12 E8 2580 BNEQ 3$ 3 xe . 
SA 8 0 EA 2581 MOVL #8,R10 ; RI st of probe 
OF 0 ED 25 ¢ BSBW READ Ag 5 pocess the access violation 
0 D F 585 38: MOVa (R113+ ; RO,R1 = the first table entry 
E3 AD 5B DO OBF3 2584 MOVL  R11,ADBRESS2(FP) S Seve. the following address 
8B AD 06 F 585 INCL OP_{ND X(FP ; use ‘fourth operand’ type for rest 
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0 BFA 25 $ BSBW  _— UNPACK_FLOAT2 : 
BF ; BSBW PACK FCOAT2 ; 
D C0 8 ova 0,REG_ROCFP) : 
9E 0C04 2589 MOVAB OPERAND2(FP),R1 : 
: COB 2590 BSBW TEST_REAL ; 
COB 331 BSBW SET CONDITION ; 
CA 0CO 36 BICL2 #PSCM_VC,PSL(FP) : 
DO OCie 259 MOVL  ADDRESSO(FP),REG_R3(FP) ; 
p0 C1? 2594 MOVL § ADDRESS1(FP) REG-R2(FP) ; 
98 OCiC 2595 CVTBL REGHOD_pC «FPS RO ; 
7¢ «(OC 396 CLRQ = REGMOD-RO(FP) : 
7¢ «OC 39 CLRQ RE GMOD RB(FP) : 
V : D_ ; 

BY Seek gap EUR. noo. pecr 
91 OC2C 2600 CMPB © @OP_INDEX(FP),#TYP_G : 
a a cay : 
FO 0034 $08 31$: INSV RO, #8,#24,REG_R2(FP) : 
30 OC3A 2604 BSBW PACK _FLOAT3 : 
7D O0C3D 2605 MOV  RO,REG_R4(FP) ; 
E2 0C41 2606 BBSS  #PSL_FPD,PSL(FP),4$ : 
Sr ma | 
30 Oc4B 609 BSBu MULTIPLY _LOAT : 
FO OC 86 611 INSV  #0,#0,RO,FRACTION?:S<FP): 
DO 0C56 61g OVL REG RS(FP),R11 ; 
Of OC3A 613 PROBER MODE (FP) #8, (R11) : 
00 0661 2615 MOVL #8,R10 : 
0 0C64 2616 BSBW READ_FAULT : 
7D 0C67 2617 5$: MOVQ @REG-R3(FP),RO ; 
0 O0C6B 2618 BSBW - UNPACK_FLOAT2 ; 
0 OC6E 2619 BSBW ADD_REAL : 
0 0€71 2620 BSBW PACK _FLOAT1 ; 
D OC74 2621 MOVa RO,REG_ROCFP) : 
30 O0C78 26 : BSBW  UNPACK“FLOAT2 : 
30 OC7B 26 SBW CSET CORDITION1 ; 
CO OC7E 2624 ADDL2 #8,REG_R3(FP) : 
4 ocg 6 3 DECB EG_R2TFP) ; 
D4 Oc8 627 6$: CLRL —- REG_R2(FP) : 
C OCBA 2628 CLRQ REG R4(FP) : 
53 Océ 629 BBCC #PSC_FPD,PSL(FP),7$ F 
1 OC 630 7$: BRW NORMAL _EXIT : 

bros $¢83 

£98 ? $ 75FD POLYH - Evaluate Pol 
£32 635 INST_POLYH: : 
(95 26 ‘ SET_OP_TYPES —_H,W.B,H ; 
E1 OC9D 26 BBC #PSL_FPD,PSL(FP) ,3$ ; 
EF CAg 6 : EXTZy #8 824 ,REG R4(FPS,RO 3: 
CO OCAS 26 ADDL2 RO.REG PC(FP) ; 
80 CAC 2640 ADDB2 RO.REGMOD PC(FP) ; 
D OCBO 2641 MOVQ REG_R CFT RO : 
7D OCB4 2642 MOVQ REG"R2(FP)<R : 


unpack and save the value 
pack the value 


; save the value in user's RO-R1 
; R1 = location of OPERAND2 


test the value 
set the condition codes 
clear the V bit and C bit in the PSL 


; store next location in user's R 
; save the remaining iteration count 


RO = PC register modifications 
clear modifications for RO to R7 
clear modifications for R8 to PC 
put the PC modifications back 
puperect the operation code Length 


Skip if not 
Subtract another opcode byte Length 


; save the value for resumption 


pack the argument value 
save it for resumption 


; indicate first part done in PSL 


more iterations to perform ? 
nc - finish up 


: multiply the result and argument 
; increment the shift count 


truncate the product 
R11 = location of next table entry 


; can we read the next coefficient 


yes - skip 
10 = size of probe 

rocess the access violation 

0 = next coefficient 
unpack and save the value 

add the coefficient to the product 
pack the result so far 
save the value - 
unpack the result for next iteration 
set the condition codes in the PSL 
update the table pointer 
decrement the iteration counter 
start the next iteration 

clear the user's R2 
clear the user's R4 and R5 
aneteate instruction complete 

one 


ynomial HFLOAT 


entrance : 

use ‘‘phantom'’ fourth argument 

not instruction resumption - bypass 
RO = saved instruction Length 
position PC to end of instruction 


increment the PC modification count 


Rl = first part of result so far 
R2,R3 = second part of result so far 
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n ue 


unpack and save the val 
R1 = location of OPERAND2 
test the value 


; set the condition codes 
; R11 = user's stack pointer 
; can we read a stacked octaword ? 


1$8 - skip 
10 = size of probe 
cess the access violation 


r 
; Rg. = first part of argument 


»R3 = second part of argument 


; unpack and save the value 


s the iteration count too large ? 


; no - skip 
; processed the reaneyes operand 


resume the instruction 


; first operand is read only 
; unpack and save the value 


look at second operand 


; second operand is read only 
; is the value reserved ? 


no - sk 


p 
; process the reserved operand 
; save the operand value 
; look at third operand 
; third operand is address only 


save the table address 
use dummy fourth operand for datatype 
pack the argument value 
decrement the user SP 

remember the decrement 
R11 = user's stack pointer 
can we stack the argument ? 
yes - skip 

10 = size of probe 
process the access violation 

save first part of argument 
save second part of argument 
R11 = coefficient table address 
can we read the first octaword ? 
1$8 - skip 

10 = size of probe 
process the access violation 

Q.R1 = first part of coefficient 
R2,R3 = second part of coefficient 
save the sos lowing address 
unpack and save the value 
pack the value again 
save first part of value so far 
save second part of value so far 
R1 = location of OPERAND2 

test the value 
set the condition codes 
clear the V bit and C bit in the PSL 
save the renewing iteration count 
save the next coefficient address 
RO = PC register modifications 
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Ee AD 7C QD7 700 CLRQ Spa's Bh bh ; clear modifications for RO to R7 | 
F5 AD 7C QD? 701 CLRQ REGMOD RB(FP) ; clear modifications for R8& to PC | 
FA AD 5 9 D7 ? § MOVB RO,REGMOD_PC(FP) ; put the PC meen ticer tone back | 
50 9 C D 7 SUBL2 #2,R ; subtract the operation code length 
24 AD 18 08 F D 704 INSV RO,# ees REG_R4(FP) 3 save the value for resumption 
00 54 AD 1B Fe 9p 705 BBSS  #PSL_FPD,PSLAFP),7$ : indicate first part done in PSL 
24 AD D : 7 : 7$: TSTB = REG_RGC FP) ; more iterations to perform ? 
46 13 0091 97 Beal 98 ; : no = finish u | 
09A9 30 0093 re SBW MULTIPLY_#LOAT ; multiply the result and argument 
50 Ps OD9 709 INCL : increment the shift count 
CF AD 50 00 OO F D9 710 INSV #0,#0,RO,FRACTIONI(FP) ; truncate the product 
5B 28 AD DO OD9E 2711 MOVL  —-REG_RS(FP) R11 ; R11 = location of next table entry 
68 10 FD AD OC ODA ar PROBER MODE(FP) #16, (R11) ; can we read the next coefficient 7 
06 is ODA 71 BNEQ 8$ 3 yes - skip 
m6} 4 ODA9 2714 MOVL #16,R10 3; R10 = size of probe 
ODFC 30 ODAC 2715 BSBW READ_FAULT ; process the access violation 
5B 28 AD DO ODAF 2716 8$: MOVL REG_RS(FP),R11 ; R11 = location of next table entry 
50 88 7D ODB3 2717 MOVQ (R1T)+,R0 ; RO,R1 = first part of next entry 
52. 68 «= 7D:s«(ODB6 2718 MOVa 11) ,R2 : R2.R3 = second part of next entry 
046E 30 ODB9 2719 BSBW UNPACK_FLOAT2 3; unpack and save the value 
O85F 30 ODBC 2720 BSBW ADD_REAL ; add the coefficient to the product 
0552 30 ODBF 2721 BSBW PACR_FLOAT1 3 pack the result so far 
14 AD 50 7D ODC2 27 ¢ MOVQ RO,REG_RO(FP) 3 Save the first part of the value 
1C AD 52 7D QDC6 272 MOVa R2,REG_R2(FP) 3 save the second part of the value 
0450 30 OQODCA 2724 BSBW UNPACK~FLOAT2 3 unpack the result for next iteration 
OD6F 30 ODCD 2725 BSBW SET_CORNDITION1 3 set the condition codes in the PSL 
28 AD 10 CO ODDO 7g8 ADDL2 #16,REG_RS(FP) 3; update the table pointer 
24 AD 97 ODD4 2727 DECB REG_R4(FP) ; decrement the iteration counter 
BS 11 ODD? 2728 BRB 7$ 3; start the next iteration 
24 AD D4 ODDI si¢2 9$: CLRL REG_R4(FP) ; clear the user's R4 
4C AD 10 CO OQDDC 2730 ADDL2 #16,REG_SP(FP) ; unstack the argument value 
00 54 AD 1B 5? ODEO 2731 PSL_FPB,PSL(FP),10$ ; indicate instruction complete 
F3DC 1 ODES £36 10$: BRW NORMAL _EXIT : done 
ODE8 a 
ODE8 2734 3 
ooce ts) : 7FFD PUSHAO = Push Address of Octaword 
ODES 539 3 7FFD PUSHAH - Push Address of H_floating 
ODE8 38 : 
ODE8 2739 INST_PUSHAO: 
ODE8 2740 SET _OP_TYPES 0 
OOEF 30 nore 741 BsB0 ADDRESS_ACCESS :; first operand is address only 
4C AD 04 (C2 ODEF ms SUBL #4,REG SP(FP) ; decrement the user SP | 
F9 AD ns Be por 74 SUBB #4 REGROD_SPCFP) 3 remember the decrement 
50 D0 ODF? 2744 OVL RILR ; RO = the operand address | 
5B 4C AD DO OQDFA 2745 MOVL REG_SP(FP) R11 ; R11 = user's stack pointer 
68 04 FD AD OD DFE ms PROBEW MODE (FP) ,#4, (R11) 3; can we write the operand address ? 
06 12 OE0 74 BNEQ 1$ : yes - skip 
5A 04 ° E05 2748 MOVL #4,R10 ; R10 = size of probe 
0E11 0 QE08 2749 BSBW WRITE FAULT 3 process the access violation 
4C BD 28 oY eRe 750 1$: MOVL RD -OREG_SPCFP) ; Stack the operand address 
5 EOF 2751 TSTL R 3 test the operand address 
ODOC 0 QE11 27 ¢ BSBW SET_ CONDITION 3 capture the condition code 
54 AD 0 A QE14 27 BICL2 #PSCM_V,PSL(FP) : clear the V bit in the PSL 
F3A 1 0618 2754 NORMAC_EXiT ; done 
E1B 2755 
E1B 2756 : 
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Ei8 13 : 42 SUBF2 = Subtract F_floating (Two Operands) 
E1B 07 § INST ~SuBl: 
E18 760 SET_OP_TYPES F 
10 11 E1F 761 BRB™ INST_SUBx2 
ae 
; i pee 3 62 SUBD2 - Subtract D_floating (Two Operands) 
OE 1 766 INST _suBb2: 
E21 76 SET_OP_TYPES Dd 
OA 11 BE $ £68 BRB INST_SUBx2 
OFS? 5790 
OE f al ; 42FD SUBG2 - Subtract G_floating (Two Operands) 
0E 27 5g INST_ suBé2: 
QOE27 2774 SET_OP_TYPES 
04 11 OE2B 775 BRB” INST _suBs2 
ae 
Me ore ; 62FD SUBH2 - Subtract HFLOAT (Two Operands) 
OE2D 780 INST _SUBH H2: 
Beg? 781 SET OP_TYPES 
th AT BRB INST _suBx2 
0E31 2784 th asks 
OO8F 30 0E31 2785 BSBW READ_ACCESS : first operand is read only 
O3ED Hi 0E34 2786 BSBW UNPACK_FLOAT1 3 unpack and save the value 
06A9 0 OE37 2787 BSBW NEG 3; negate the value 
0098 30 OE3SA 2788 BSB eyeete CCESS 3 second operand is modified 
E7 AD 5B B° BE D 2789 MOVL 1 ADDRESS 1¢FP) 3 save the destination location 
03E6 0 QE41 2790 BSBW NP phen AT2 3 unpack and save the value 
0707 M4 0E44 2791 BSBW ADD ne 3 som ute the sum 
4CA 0 0E47 ay: BSBW PACR AT1 : the value 
58 E7 AD DO OE4A 79 MOVL ADDRESS ICFP) , R11 : ii = door inaxtan Location 
0667 30 OE4E 2794 BSBW STORE 0 OPERAND 3; store result 
OCEB 30 0E51 2795 BSBW T_CONDITION1 3; set the condition codes in the PSL 
F36D = 331 BE Rs 796 BRW RORRAL EXIT : done 
Ofe? $798 
bE2! a4 ; 43 SUBF3 - Subtract F_floating (Three Operands) 
OES? 64 INST_suBF3: 
E57 8s SET_OP_TYPES F 
10 11 O€5B BRB™ ~ INST _SUBx3 
BB Bs 
tH 0? : 63 SUBD3 - Subtract D_floating (Three Operands) 
E5D : INST. -suBb3: 
E5D 0 SET_OP_TYPES 
OA 11 £6 10 BRB™ INST _sUBK3 
ees 5812 
£6 13 : 43FD SUBG3 - Subtract G_floating (Three Operands) 


<< 
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E6 14 : 
£6 15 INST_SUBG3: 
E6 1 SET_OP_TYPES G 
0% 11 E 1 BRB INST_SUBx3 
£69 $819 . | 
324 9 : 63FD SUBH3 = Subtract HFLOAT (Three Operands) | 
£69 ; INST_SUBH3: 
E69 SET OP_TYPES H 
$4 : 7 BRB INST_SUBx3 
a0 § INST_SUBx3: 
0053 0 EGD BSBW READ_ACCESS : first operand is read only 
0381 Q OE 9 828 BSBW UNPACK_FLOAT1 3 unpack and save the value 
066D 0 OE7 829 BSBW NEGATE_REAL 3; negate the value 
004A 0 QOEF76 2830 BSBW READ_ACCESS 3 second operand is read only 
O3AE Hi 0E79 He BSBW NPACK_FLOAT2 3 unpack and save the value 
0040 0 OE7C ¢ BSBW WRITE_ACCESS ; third operand is write onl 
E7 AD 58 0 OE7F 283 MOVL R11, ABDRESS1<FP) : save the destination location 
0798 0 QE83 2834 BSBW ADD_REAL ; compute the sum 
0488 0 OEF86 2835 BSBW PACK_FLOAT1 : pac the value 
5B €7 AD 0 OEF89 2836 MOVL ADDRESS1(FP),R11 ; R11 = destination location 
0628 30 OE8D 2837 BSBW STORE_OPERAND 3; store result 
OCAC 0 34 838 BSBW SET_CONDITION1 : set the condition codes in the PSL 
F32E 31 O€9 839 BRW NORMAL _EXIT ; done 
OFoe 5841 
E96 BAe : 53 TSTF = Test F_floating 
0E96 2844 INST_TSTF: 
0E96 845 SET_OP_TYPES F 
10 11 QE9A 2846 BRB INST_TSTx 
Be 
Oe 9¢ 849 : 73 TSTD - Test D_floating 
OE9C 2851 INST_TSTO: 
OE9C 826 SET_OP_TYPES D 
OA 11 OEAO 85 BRB INST_TSTx 
BS ft oer 
OEA 36 ; 53FD TSTG - Test G_floating | 
OFA 34 INST_TST6: | 
OEA 5 SET_OP_TYPES G 
04 11 EA 60 BRB INST_TSTx | 
EAB 5862 | 
EA és : 73FD TSTH - Test HFLOAT | 
EAB 2865 INST_TSTH: | 
EA 66 SET_OP_TYPES H 
EAE ° 7 BRE INST_TSTx 
EAC $3 INST_TSTx: 
0014 30 OEAC 0 BSBW READ_ACCESS ; first operand is read only 


ating-point dostvecstens 
mulation Routines 


VAXSEMULATE FP 


UNPA ATI 


BSBW CK_FLO 
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BSBW TEST_REAL 

BSBW SET CONDITION 
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; unpack and save the value 
R1 = Swabs ool of the value 
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set the condition ¢ odes 
; clear the V bit ona C bit in the PSL 
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Introduction 


scanning the operands of an instruction and determining the 
values and locations of operands. The code contains full error 
checking and also checks for the situations that the 
architecture considers to be unpredictable. In order to make 
the operand scanning in the instruction emulation routines 
suser = Saperane entrys appear for each possible kind of 
operand. 


Operand Scanning Routines 


The operand scanning routines are entered by subroutine 


| 
| 
The following section contains a complex of routines for | 
hranching and have entry names of the form 

| 


<access type>_<data type> 
in which <access type> is any one of the following 


READ operand is read onl 
WRITE operand is write only : 
MODIFY operand is both read and write | 
ADDRESS only the operand address is required 
BRANCH relative branch destintion 

and in which <data type> is any one of the following 
WORD word 
LONG lLonqword 
QUAD quadword 
OCTA octaword 
FLOAT F-format floating 
DFLOAT D-format floating 
GFLOAT G-format floating 
HFLOAT H-format floating 


For an access type of BRANCH the data type refers to the 
size of the relative address rather than the properties of 
any addressed information. 


Entrys only exist for those types of operands which appear 
in the emulated instructions. If additional entrys are 
required they can be added easily enough. 
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When the routines are entered they scan the next 
instruction operand starting at the value of the user's PC 
and check operand for validity. If any exceptions are 
detected during operand scanning they are processed immediatly 
and the routines do not return. boy changes that are made to 
ony of the registers ( ng tuding PC) are recorded in the change 
bytes so faults will be handled properly. 


When the routines return the following rules describe the 
contents of the registers: 


o If the access wt is READ or MODIFY and the data type 
is BYTE, WORD, LONG, or FLOAT, then RO is the value 
of the operand. If the data type is BYTE or WORD then 
the value is sign extended to a longword. 


o If the access type is READ or MODIFY and the data type 
is QUAD, DFLOAT, or GFLOAT, then RO-R1 contains the 
value of the operand. 
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o If the access type is READ or MODIFY and the data type 
is ee or HFLOAT then RO-R35 contains the value of the 
operand. 


o If the access rye is WRITE, MODIFY, ADDRESS, or 
BRANCH, then R11 is the address of the operand or the 
branch destination. 
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If the instruction operand specifies register mode, then the 
address associated with the operand is the location of the 
emulated register. If an instruction operand with WRITE or 
MODIFY access addresses the Emulator's local sterepe then it 
is changed to an address that won't do ~ harm. This is 
consistant with the notion that the area below the user's 
stack pointer is being cont invelty garbaged. This check is not 
performed if flag bit 0 is set. The routines set flag bit 1 if 
the operand is a register mode operand. 


The subroutine LOCAL_TEST is available for checking for 
stores into the Emulator’s local storage in places where this 
is not done automatically. 
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Exceptions 


The instruction operand scanning routines perform complete 
error checking and janedtet ly signe any exceptions detected. 
ALL of these exceptions are faults. The change bytes are 
constantly kept up to date so the instruction will be left in 
a consistant state for restarting if a fault occurs. 


ALL fetches from memory done in scanning the instruction 
operand or in rotehing the operand or operand address are | 
prebed and access violations are signaied if the probes fail. 

Ll of the addressing modes specified by the architecture to 
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be reserved addressing modes or unpredictable a 
and ore Signaine as reserved addressing modes i 


re checked for 
f they are 


Routine Organization 


Except for BRANCH access mode for which there are only 
isolated routines, the code at the individual routine 
entrances simply loads the data type code into R9 and branches 
to a routine for the access type. This routine in turn loads 
the access type code into R8 and branches to the routine 
GET_SPECIFIER which process the operand specifier byte. 


GET_SPECIFIER loads the length of the data type into R10 
and the operand specifier byte into RO. The ni and low 
order nibbles of this byte are stored in R1 and R2. The 
register R7 which is reserved for the index modification is 
cleared. The routine now branches on the high order nibble 
to a routine which will handle the specific kind of operand. 


For Literals the values are expanded immediatly and the 
routine returns. 


For index mode operand specifiers, the index modification 
is computed and the next operand specifier byte is loaded into 
RO and decomposed as before. Sain we branch on the high order 
nibble but this time certain addressing modes which are 
illegal with indexing are checked for. Also for those 
addressing modes which change register values a check is made 
that the register is not the same as the index register. 


For register mode operands the address of the emulated 
register is loaded into R11. A check is made that the operand 
does not contain PC. Then flag bit 1 is set and control passes 
to the operand reading routine if the access type is READ or 
MODIFY and the routine returns otherwise. 


For the remaining addressing modes the operand addresses 
are computed in a straightforward manner and loaded into R11. 
for some of these addressing modes tne values of registers may 
be changed. These changes are reflected in the change bytes. 
When the operand address is computed control passes to the 
operand accessing routine. 


For ADDRESS access mode operands the operand accessing 
routine returns but for all others it probes the operand 
address and also checks for writes into the Emulator'’s local 
storage unless flag bit 0 is set. If the operand is READ or 
MODIFY access control passes to the operand reading routine. 


The operand reading routine staely reads the operand 
value into the registers starting at RO and then returns. 
Bytes and Words are sign extended into longwords. However 
this routine does not check for reserved floating values 
since this is done by the unpack routines. 
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EC 5 3 
+ 038 : Process a Read Only Operand 
EC3 3055 READ_ACCESS: : entrance 
01 pO OEC 056 MOVL #TYPE_READ,R8 ; RB = access type 
59 8B BD 9A OEC6 057 MOVZBL @OP_INDEX(FP) RO ; R9 = data type 
24411 eee B28 BRB GET_SPECIFIER 3; scan the operand 
OECC 3060 3 Process a Write Only Operand 
OECC 3061 : 
ECC 06¢ WRITE_ACCESS: ; entrance | 
58 02 pO OECC $8 MOV #TYPE_WRITE,R8 : oe = access type 
59° 8B BD 9A OECF 3064 MOVZBL @0P_INDEX(FP) RO ; R9 = data type | 
1B Beds he? BRB GET_SPECIFIER 3 scan the operand 
OEDS 869 $ Process a Modified Operand 
OEDS 3068 : 
OED5 3069 MODIFY_ACCESS: 3 entrance 
8 03 DO OEDS 3070 MOVL #1YPE_MODIFY,R8 ; RB = access type 
59 BD 9A OEDB 3071 MOVZBL @OP_INDEX(FPS ,R9 : R9 = data type | 
12 4345 1h BRB GET_SPECIFIER 3 scan the operand 
QEDE 3074 ; Process an Addressed Operand | 
OEDE 3075 : 
OEDE 3076 ADDRESS_ACCESS: ; entrance 
58 04 D0 OEDE 3077 Pan #TYPE_ADDRESS,R8 ; R&B = access type 
59 8B BD 9A OEE1 078 MOVZBL @OP_INDEX(FP),R9 ; RY = data type 
09 BEES $44 BRB GET_SPECIFIER 3 scan the operand 
OEE? 3081 ; Table of Data Type Lengths 
OEE7 bes ; 
OEE? 3083 LENGTHS: ; table origin 
01 OEE? 3084 -BYTE 1 3; 1 - byte 
02 OEFE8 3085 -BYTE 2 3 ¢ - word 
04 BEER 086 -BYTE 4 ; 3 = lonqword 
08 QEEA 3087 -BYTE 8 3; 4 - quadword 
10 QOEEB 3088 -BYTE 16 ; 5 = octaword 
04 OQEEC 3089 -BYTE 4 : 6 - F_floating | 
08 OEED 944 -BYTE 8 ; 7 = D_floating 
08 QEEE 91 BYTE 8 ; 8 - G_floating 
10 4 O38 -BYTE 16 ; 9 - H_floating 
Reee bot : Process the Next Operand Specifier | 
SFO 096 GET_SPECIFIER: > entrance | 
5A F2 AF49 QA OEF 097 MOVZBL LGeStH<th R92 10 ; R10 = data type Length 
57 4 COEF 098 CLRL = ; clear the index value ; 
5B 50 AD 00 OEF 099 MOVL REG_PC(FP),R11 ; R11 = specifier byte location 
6B 01 FD AD OC OEFB 3100 PROBER MODE(FP),#1,(R11) 3 can we read the specifier byte ? 
06 12 OFOO 3101 BNEQ 1$ 3 yes - skip 
oA 1 0° roe 196 MOVL #1,R10 ; R10 = size of probe. ; 
OCA3 30 OFOS = 31 BSBW  READ_FAULT ; process an access violation 
50 508D 9A OFO8 3104 1S: MOVZBL @REG PC(FP),RO ; RO = specifier byte 
AD FOC 3105 INCL REG_PCCFP) ; increment PC 
FA AD 96 OFOF 31 $ INCB EGAOD_PC(FP) ; remember the incrementation 
51 50 046 04 EF af; 10 EXTZV #4,44,R0,R1 ; R1 = high order nibble of specifier 
52 50 04 00 EF OF1 108 EXTZV #0,#4,R0,R2 ; R2 = low order nibble of specifier 
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: h on the high order nibble 
CASEL 1,840,815 ¢ prance 
| OF 00 51 cr, OF] 1¥6 28: WORD LITERAL MODE-2$ BBS hina node 
 OFSe $11 “WORD CITERALZMODE-9$ i ¢ = [iteral mode 
+ OF 118 ‘WORD LITERAL -RODE-28 s 7S jiterel ao 
OEF* OF2C 311 «WORD REG DEF MO E=2 : $ - autodecrement mode 
160° OF 119 “WORD ECR _ROBE- ; 8 = autoincrement mode 
11B" OF 11 «WORD INCR-MODE-2$ “2 : 3 pe ad ee harman deferred aods 
16g) OF34 3120 oe Byte =Bi SP RODE :B- byte displacement deterred mode 
189° F 121 «WORD BYTE _DEF yt <2 * € © word displacement mode 
O1BA’ OF § 1 . WORD D-DISP MODE i : D = word displacement deferred mode 
Sieh: Sree gS aoa a ibotambeths «£2 TS Glsgtsesane agrret nove 
0930" OFSE $195 “WORD  LONG_DEF _MODE~2 ¢ F = long displacement de 
OF) ; $ : Process a Literal Mode Operand Specifier 
128 ; - 
oreo 129 LITERAL_MODE : ; one aa the access type 
1 58 CF OF4O §=3130 CASEL = RO #1 #5 : 1 = read only access 
eet 0008° OF44 3131 1$: <WORD 28-18" ; S ceplto on y access 
goal: Brag Hig won Aabness tauren gr belie” sess 
D3] OFGA 4 WORD ADDRESS FFAULT~18 bya, pig Ty. tyee 
rae O16" OFS : é 3: .WORD 6$-38" . 25 ores 
$016" OF52 $137 -WORD 68-38 : g - longword 
0016" OF54 3138 -WORD  6$-3$ : 4 = quadword 
0014° OF56 139 «WORD $-3$ : 5 = octaword 
0012* OF58 3140 «WORD 4$-3$ : 6 = F_floating 
$019" OFSA 3141 . WORD $-3$ ' D> floating 
0017" OFSC 314 «WORD /$-3$ : B = floating 
0021' OFSE 3143 “WORD = 9$-5$ ‘3 H7 floating 
0029" OF60 3144 gWOR 196-38 : clear second qusdword of value 
52 C OF62 3145 4$: CLRa Re > clear second longword of value 
51 04 OF64 3146 5$: CLRL- eR : return with the Lireral value 
05 OF66 3147 68: ese ; clear second longword of value 
51 D4 OF67 3148 7S: CLRL RT : position the Literal bits 
~.a & re or 89 the BBcs He Roos ; include emer bias and return 
so 3 Of 7 al 13) 9$: aark #1 RO,RO. : gl onent bias 3 and finish up 
E F75 315 an’ > position the Litera 
50 30 1D 0 on 138 10$ aore aia RO. re ; include exponent bias and finish up 
: ! 182 ; Process an Index Mode Operand Specifier 
157 ; ; 
at 158 INDEX_MODE : : ts tan rontetne pC ? 
52 OF 01 OF81 3159 cnet #15.Re + no = skip. ereed edgreesing unde 
ocge 3H FG SHel MULL RIO REGCROCEPICR2I,R7? : RIS index address modification 
: MUL bs ° . er 
ete Anes iA 50 f 4 188 es MOVL R2,R3 : Rit = g thay by) next byte 
5850 Ab DO OFS S164 MOVE . REG PCCEP) RIT : can we read the next byte ? 
68 01 FD AD OC OF96 3165 PROBE oF he 
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06 1 FOB 316 BNEQ 2$ 3 yes - skip 
5A 4 F9D 316 MOVL #1,R10 ; R10 = size of probe 
oc 8 FAO 3168 SBW READ_FAULT ; process the access violation 
50 50 BD A OFA 192 2$: MOVZBL @REG_PC(FP),RO 3 = next operand specifier 
50 AD 6 FA 170 INCL REG_PC(FP) : increment P 
FA AD 6 OFAA 3171 INCB REGRMOD_PC(FP) : remember the incrementation 
51 50 04 04 #=EF OFAD Ife EXTZV #4,44,R0,R1 ; R1 = high order nibble of specifier 
te ee Ba Pe, Be 17 EXTZV #0,44,R0,R2 ; R2 = low order nibble of specifier 
OF 00 51 #CF OFB 174 CASEL R1,#0.815 : bramch on the low order nibble 
OCBA' OFBB 3175 38: .WORD ADORESS_FAULT-3$ : 0 = literal mode 
OCBA’' OFBD 176 «WORD ADDRESS_FAULT-3$ 3; 1 Literal mode 
BeeA, gree 177 «WORD ADDRESS_FAULT-3$ : ; - literal mode 
CBA’ OFCI 178 «WORD ADDRESS_FAULT-3$ ; - Literal mode 
OCBA' pres 179 «WORD ADDRESS_FAULT=-3$ 3; 4 - index mode 
OCBA’ OFC 180 WORD ADDRESS_FAULT-3$ ; 5 - register mode 
Bp age OFC? 3181 -WORD REG_DEF_MODE-3$ ; 6 - register deferred mode 
020° OFC9 18 «WORD 4$-3$ ; 7 = autodecrement mode 
0020" OFCB 318 - WORD te-8e 3; 8 - autoincrement mode 
0020' OFCD 3184 «WORD 4$- ; 9 = autoincrement deferred mode 
00C7" OFCF 3185 «WORD BYTE_DISP_MODE-3$ ; A - byte displacement mode 
OOEC' OFD1 3186 WORD BYTE_DEF MODE- 3 B - byte displacement deferred mode 
O11F* OFD3 3187 -WORD WORD_DISP MODE-3$ ; C - word displacement mode 
0146" OFDS 3188 WORD WORD -DEF _MODE-3 ; D - word displacement deferred mode 
017B' OFD? 3189 «WORD ONG_DISP _MODE-3$ ; E = long displacement mode 
Q1A2" OFD9 3190 -WORD LONG_DEF_MODE-3$ 3; F = long displacement deferred mode 
53 52 D1 OFDB 3191 4$: CMPL R2,R3 ; is register the same as index ? 
05 12 OFDE 196 BNEQ ; no = skip 3 
0c92. 31 «(OFEO §=6319 BRW pyone ss FAULT ; process the reserved addressing mode 
02 O07 51 CF OFE3 3194 5$ CASEL R1,#7,82 ; branch on the high order nibble 
0039° OFE7 3195 6$ «WORD DECR_MODE-6$ ; 7? = autodecrement mode 
0054° OFE9 $138 «WORD INCR_MODE-6$ 3; 8 - autoincrement mode 
0078' ares $135 «WORD INCR_DEF_MODE-6$ : 9 - autoincrement deferred mode 
OFED $500 ; Process a Register Mode Operand Specifier 
OFED 3200 3 
OFED 3201 REGISTER_MODE: 3 entrance 
FC_AD 02 88 OFED Oe BISB2 #FLAGIM,FLAGS(FP) ; indicate a register mode operand 
53 6A42 DE OFFI 320 MOVAL (RTO) EREI.RS > byte position following operand 
53 3C D1 OFFS 04 CMPL #60,R 3; does the operand overlap PC ? 
03 «18 oor 05 BGEQ 1$ 3; no - skip 
0C78 31 OFFA 06 BRwW ADDRESS Pavey 3 process the reserved addressing mode 
5B 14 AD42 DE OFFD 07 1$ MOVAL hy RO(FP)CR2),R11 ; R11 = location of user register 
03 Of 58 CF 1002 3208 CASEL R8,71,#3 ; branch on the access type 
01BC' 1308 09 28 . WORD READ VALUE-2$ : 1 = read only access 
0008" 100 10 -WORD 3$-2$ 3; 2- write access 
01BC* 100A 11 -WORD READ VALUE-2$ ; 3 - modify access 
OC6F* 100C \¢ -WORD ADDRESS_FAULT-2$ : 4 - address access 
05 ORE F 3$: RSB ; return with the register address 
100 12 ; Process a Register Deferred Mode Operand Specifier 
100F 13 REG_DEF _MODE: > entrance 
52 OF 01 1906 13 CMPL #15,R2 ; is the register PC ? 
03 14 1012 1 BGTR 3; no - skip : 
0C35 31 1014 0 BRW ADDRESS_FAULT 3 process the reserved addressing mode 
5B 14 AD42 3 1 131? 1 1$: ADDL3 R7,REG_ROCFP)CR2],R11 ; form the operand address 
0172 «31 «+101D 2 BRW ACCESS” VALUE : finish establishing the access 
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16 ¢ 3 Process an Autoc.crement Mode Operand Specifier 
1 § DECR_MODE : 3; entrance 
52 OF D1 1 CMPL #15,R2 ; is the register PC ? 
oces i : § Beye Hy RESS_FAULT | prec = d add i d 
“ 3 process the reserved addressing mode 
14 ADS 5A gs 1028 0 1$: SUBL R10 REG ROCFP)CR2) ; Subtract data size from register 
EB AD42 «5A 682 «(1020 1 SUBB2 R10,REGMOD_RO(FP)(R2] ; remember the subtraction : 
5B 14 AD42 57 C1 10 ‘ é ADDL3 R7,REG_RO(FP)CR2J,R11  : form the operand address 
0157 1 1036 ? BRW ACCESS-VALUE ; finish establishing the access 
1036 5 § Process an Autoincrement Mode Operand Specifier 
1038 : INCR_MODE : : entrance 
a ae 3 See 8 CMP #15,R2 ; is the register PC ? 
OC 14 103€ 39 BGTR 2$ ; no - bypass 
03 «01 58 CF 1040 40 CASEL R8,#1,83 3; branch on the access type 
0008" 1044 41 1$: «WORD 2$-1$ 3; 1 = read only access 
0C31" 1046 4g -WORD ADDRESS_FAULT-1$ : ¢ - write only access 
0C31° 1048 4 «WORD ADDRESS _FAULT-1$ ; 35 = modify access 
0008" 104A 44 WOR ~ ; 4 = address access 
5B 14 AD42 C1 104C 3245 2$: ADDL R7,REG_ROCFP)CR2],R11 3; form the operand address 
14 AD42 SA CO 1926 246 ADDL2 R10,REG_ROCFP)CR24 ; add the data size to the register | 
B AD42 SA 80 105 247 ADDB2 R10,REGMOD_RO(FP)CR2] ; remember the addition 
31 105¢ 348 BRW ACCESS_ VALOE : finish establishing the access 
War a : Process an Autoincrement Deferred Mode Operand Specifier 
105F 26 INCR_DEF MODE: 3 entrance 
5B 14 AD42 DO 105F 5 OVL REG_ROCFP)CR2),R11 ; R11 = register value 
68 04 FD AD OC 1064 54 PROBER MODE(FP) #4, (R11) ; can we read longword it addresses ? 
06 12 1069 55 BNEQ 1$ 3 yss - skip 
5A 04 00 1068 3256 MOVL #4,R10 ; R10 = size of probe 
OB3A 30 106€ 3257 BSBW READ_FAULT 3; process the access violation 
5 68 57 C1 = 1071 58 1$: ADDL3 = =R7,(R11),R11 : form the operand address 
14 AD42 04 CO 1075 59 ADDL2 #4,REG_ROCFP)CR2] ; add longword size to the register 
EB AD42 04 80 107A 60 ADDB2 #4,REGMOD_RO(FP)CR2] 3; remember the incrementation 
31 107 61 BRW ACCESS_VACUE : finish establishing the access 
i e§ $ Process a Byte Displacement Mode Operand Specifier 
108 65 BYTE_DISP_MODE: : entrance 
5B 50 AD 00 1986 66 MOVL REG_PC(FP) ,R11 3 R11 = Location of displacement 
68 01 FD AD OC 1 6 PROBER MODE(FP),#1,(R11) + can we read the displacement ? 
06 12 1088 68 BNEQ 1$ : yes - skip 
SA 01 bf 108D 69 MOVL #1,R10 ; R10 = size of probe 
0818 0 1330 70 BSBW READ_FAULT 3 process the access violation 
58 68 98 109 71 1$: CVTBL) = (R119,R11 ; R11 = displacement value 
50 AD 06 1096 re INCL REG PC(FP) : increment PC 
FA ap 3 1099 7 INCL REGMOD_PC(FP) : remember the increment 
cO 109C 74 ADOL R7,R1 ; add the displacement to the index 
5B 14 AD42 50 + +4 75 ADOL REG _ROCFP)CR2I,R11 ; add the register to the result 
00EB 1 1 8 BRwW ACCESS_VALUE : finish establishing the access 
War 5/8 : Process a Byte Displacement Deferred Mode Operand Specifier 
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10A7 0 BYTE_DEF MODE: ; entrance 
5B 50 AD 00 19A7 1 “— MOVL REG_PC(FP) ,R11 ; R11 = location of displacement 
68 01 FD ry 13 : . ¢ ye MODECFP) .#1, (R11) ; can we read the displacement ? 
- yes - $ 
SA Ql 198 4 MOVL #1,R10 ; R10 = size of probe 
OAF3 \s6 5 BSBW READ om" ; process the access violation . 
5B. s6B 1088 § 1$: CVTBL = (R113,R1 ; R11 = displacement value 
50 AD D6 1088 INCL REG _PCCFP) : increment PC | 
FA AD 4 108 8 INCB REGRMOD_PC(FP) 3 remember the increment 
5B 14 AD42 CO 10C 9 DDL2 REG_ROTFP)CR23,R11 ; add the register to the displacement 
6B 04 FD a Of 19e6 ay ey MODE CFP) #4, (R11) 3; can we rye longword it addresses ? | 
i yes - s 
SA be dO i9ep 35 MOVL #4,R10 : Ri = stze of probe | 
OAD8 30 1909 9 BSBW READ FAULT i; process the access fault 
= @ ¢! 10D 94 28: ADDL3 =R7, (R11) ,R11 ; form the operand address 
0088 1 44 32 BRW ACCESS_VALUE ; finish establishing the access 
igee 3 3 Process a Word Displacement Mode Operand Specifier 
10DA 3299 WORD_DISP_MODE: : entrance 
5B 50 AD 00 10DA 00 MOVL REG_PC(FP),R11 3; R11 = Location of the displacement 
68 02 FD AD OC 100e 301 PROBER MODE(FP),#2,(R11) 3; can we read the displacement 
06 12 10€ $06 BNE 1$ : yes - skip 
SA 02 00 10€5 330 MOVL #2,R10 ; R10 = size of probe | ; 
OACO 30 10E8 3304 BSBW READ_FAULT 3; process the access violation 
58 68 32 10EB 3305 1$: CVTWL «= (R119,R11 ; R11 = displacement value 
50 AD O02 CO 10EE 3306 ADDL2 #2,REG PC(FP) ; increment PC 
FA AD QO2 80 10F2 3307 ADDB2 3 #2,REGMOD_PC(FP) ; remember the increment. 
5B 57 CO 10F6 3308 ADDL2 P ; add the index to the displacement 
5B 414 ADS42 CO 10F9 3309 ADDL2 REG_ROCFP)CR2],R11 ; add the register to the result 
0091 +31 ore 419 BRW ACCESS_VALUE ; finish establishing the access 
118) 3312 ; Process a Word Displacement Deferred Mode Operand Specifier 
° | 
1101 $12 WORD_DEF MODE: : entrance 
5B. 50 AD DO 1101 3315 MOVL  —- REG_PC(FP),R11 [R11 = location of the displacement | 
68 02 FD AD OC 1105 3316 PROBER MODE(FP),#2,(R11) 3 can we read the displacement ? 
06 12 110A 3317 BNEQ 1$ i yes - skip | 
5A 02 pO 110C 3318 MOVL #2,R10 ; R10 = size of probe 
OA99. s-330-—«'110F ~=3319 BSBW READ_FAULT 3 process the access violation 
58 68 32 ie $59 1$: CvTW (R113,R11 ; R11 = displacement value 
50 AD 02 CO 111 1 ADDL #2. REG PC(FP) : increment PC | 
FA AD 3 80 1119 ; ADDB #2,REGMOD_PC(FP) 3 remember the increment 
5B. 14 AD4 co 111 ADDL2 REG _ROCFPYCR2],R11 : add the register to the displacement | 
6B 04 FD AD ee 4 PROBER MODE(FP) #4, (R11) 3; can we read longword it addresses ? 
06 12 «11 5 BNEQ 2$ 3 yss - skip 
5A 04 B° 1129 6 MOVL #4,R10 ; R10 = size of probe 
OA7C 0 112C 7 BSBW READ FAULT 3: process the access violation 
5B «6B COS? ¢! 112F 8 2$: ADDL3 = =R7,(R11),R11 ; form the operand address 
oosc 51 11 > ; BRW ACCESS_ VALUE : finish establishing the access | 
1 ? 1 5 Process a Long Displacement Mode Operand Specifier 
1136 g LONG_DISP_MODE: ; entrance | 
5B 50 AD 00 1136 4 MOVL REG PC(FP),R11 ; R11 = location of the displacement 
6B 04 FD AD OC 113A 5 PROBER MODE(FP) ,#4,(R11) ; can we read the displacement ? | 
06 12 1135F 6 BNEQ 1$ 3 yes - skip 
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SA 04 8 1141 7 MOVL #4,R10 ; R10 = size of probe 
0A64 1144 8 BSBW READ_FAULT 3 process the access violation 
5B «6B 2 1147 9 1$: MOVL (R113,R11 ; R11 = displacement value 
50 AD 04 ¢ 114A 3340 ADDL re REG PC(FP : increment PC 
FA AD 04 § 114 4] ADDB fe -REGROD _PC CFP) 3 remember the increment 
- oS Co 115 rt ADDL R7,R ; add the index to the displacement 
5B 14 ADS £0 115 4 ADDL REG. ROC FP )CR2I, R11 : add the register to the address 
003 1 1198 rf: BRW Naat VALUE i finish establishing the access 
1128 rf 3 Process a Long Displacement Deferred Mode Operand Specifier 
115D rh LONG_DEF_ MODE 3 entrance 
5B 50 AD 00 1150 4 VL REG_PC(FP),R11 3; R11 = location of the displacement 
6B 04 #=FD AD 96 1161 50 PROBER MODE (FP) #4, (R11) 3; can . toy the displacement ? 
06 12 1166 51 BNEQ 1$ 3 yes - 
5A 04 ° 1168 26 MOVL #4,R10 3 = a of probe 
OA3D 0 1168 5 BSBW READ_FAULT 3 process the access violation 
58 6B »DO 116€ 54 1$: MOVL (R113,R11 ; R11 = displacement value 
50 AD 04 CO 1171 3355 ADDL2 #4,REG PC(FP) : increment PC 
FA AD 04 80 1175 3356 ADDB2 #4,REGMOD_PC(FP) 3; remember the increment 
5B 14 AD42 CO 1179 3357 DL2 REG _ROCFPYCR2],R11 3; add the register to the. displacement 
68 FD AD OC 43 358 PROBER MODE(FP) #4, (R11) ; can — ree longword it addresses ? 
06 12 118 4 E 2$ 3 yes - 
5A 0&6 pO 1185 60 MOVL #4,R10 3 = ste of probe 
OA20 30 1188 3361 BSBW READ FAULT 3; process the access violation 
5B 6B 7 Ci 1188 306 2s: ADOL3 = =R7, (R11),R11 : form the operand address 
0000 = 31 BY 4 ser BRW ACCESS VALUE : finish establishing the access 
1 s02 : Set Up the Type of Access Requested 
119 367 ACCESS VALUE: ; entrance 
03 «01 58 CF 119 68 ASEL R8,4#1,43 ; branch on the access type 
000D' 1196 3369 1$: COORD READ_CHECK-1$ 3: 1 = read only access 
0019" 1198 3370 -WORD WRITE_CHECK-1$ : ; - write only access 
0009" 119A 71 .WORD nooiry. CHECK-1$ 33° modify access 
0008° 119C¢ ie -WORD 2$-1 : 4 - address access 
05 Bb 3 te 2s: RSB : return with the operand address 
BP 33 $ Perform Error Checking for Modify Access Operands 
119F 1 MODIFY_CHECK: 3 entrance. 
OE 10 119F 78 BSBB WRITE CHECK ; check write (and read) access 
1F Oo Al a BRB READ_QVALUE ; load the value 
11A3 } 3 Perform Error Checking for Read Only Access Operands 
11A8 : READ_CHECK: ; entrance 
68 5A FD AD OC 11A3 84 PRUBER MODE(FP),R10,(R11) ; can we read the operand ? 
03 12 11A8 85 BNEQ 1$ ; yes = load the value 
ont 30 11AA 6 BSBW READ_FAULT 3 process the access violation 
1 11 3 , 1$: BRB READ_ VALUE ; load the value 
Bd 89 : Perform Error Checking for Write Only Access Operands 
11AF 91 WRITE _cHECK: 3 entrance 
68 5A FD AD OD 11AF 35 PROBEW MODE(FP),R10,(R11) 3 can we write the operand ? 
0B 12 1184 9 BNEQ 1$ 3; yes - bypass 
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0A63 «=630)=—s«118 94 BSBW WRITE_FAULT 3 process the access violation 
03 FC AD 8 118 95 BBS #FLAGO,FLAGS(FP),1$ : he local store chees one - skip | 
004C 11BE 9 BSBW LOCAL_fEST ; test for a write into local storage 
Vit 4 1$: RSB 3; return 
i 335 3 Load a Read Operand into the Registers 
11¢ 401 READ_VALUE: 3 entrance 
08 O01 59 #CF 11C 608 CASEL R9,#1,48 3; branch on the data type 
0012" 11t8 403 1$: WORD ¢e-18 ; 1 = byte 
0016° 11C 404 - WORD $-1$ : ¢ - word 
Bet 11CA 3405 -WORD 4$-1$ 3 - longword 
22° 11CC 34 $ «WORD 6$-1$ : 4 - quadword 
QO1E’ 11CE 340 eWORD 5$-1$ ; 5 = octaword | 
QO1A' 1108 408 eWORD 4$-1$ ; 6 - F_floating 
poss. 11D 409 -WORD 6$-1$ ; 7 = D_floating 
0022' 11D4 3410 «WORD 6$-1$ :; 8 - G_floating 
OO1E' 1106 3411 -WORD 5$-1$ ; 9 = H_floating 
50 6B 98 11D8 tig 2$ CVTBL (R11),R0 ; RO = operand value 
05 110B 341 RSB 3 return 
50 68 3 11DC 3414 3$ CVTWL = (R11), RO ; RO = operand value 
05 11DF 3415 RSB 3: return 
50 6B 00 1189 416 4$ MOVL (R11),R0 ; RO = operand value 
0S 11€E 417 RSB 3 return 
52 08 AB 7D 11E4 3418 5$ MOVQ 8(R11),R2 3; R2,R3 = high order quadword of value 
50 7D 11€8 3419 6$ MOVQ (R11),R0 ; RO,R1 = low order quadword of value 
05 1iee 130 RSB 3; return 
siEe ; ¢ s Process a Word Branch Displacement Operand 
11EC 3424 BRANCH_WORD: : entrance 
5B 50 AD 00 I11EC 3425 MOVL REG_PC(FP),R11 3; R11 = location of the displacement 
6B O02 FD AD OC 11FO 258 PROBER MODE(FP),#2,(R11) 3 can we read the displacement ? 
06 12 11F5 3427 BNEQ 1$ : yes - skip | 
SA 02 pO 11F7 3428 MOVL #2,R10 ; R10 = size of probe 
O9AE HY 11FA Xt BSBW READ_FAULT 3 process the access violation 
58 2 11FD 3430 1$: CVTW (R113,R11 ; R11 = branch displacement 
50 AD O02 CO 1200 3431 ADDL og°tre PC(FP) ; increment PC | 
FA AD O02 80 1204 £36 ADDB #2,REGMOD_PC(FP) 3 remember the increment — 
58 50 AD C0 \See 43 ADDL REG_PC(FPY,R11 3; compute the branch destination 
05 120C 3434 RSB 3: return 
1560 435 ; 
: 4 +38 : Test for a Write into Local Storage 
1200 a3 : entered by subroutine branching | 
1505 440 3 parameters: R10 = Number of Bytes to be Written 
! 4 red : R11 = Distination Address 
\ =. 4s § returns with R11 = Corrected Destination Address 
120D 3445 3 Discussion 
1 8p 168 ; 
1200 344 3 This routine checks the write operation described by 
120D ret : the parameters in R10 and R11 for a write into the Emulator's 
1 4 4s ; working storage. If such a write is about to take place, R11 
3 $s changed to an address where the write w not do any harm. 
120D 3450 is ch dt dd h th te will not d h 
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1200 34 : 
12000 3452 Locac_test: : entra 
53 58 AD a 1 4 MOVAB LOCAL END(FP) ,R3 ; RS = byte following local storage 
3 B 1 4 CMPL R ; is the es above the frame ? 
D f 1214 34 BGEQ 1$ 3 AS - byp 
53 28 A Cl 1216 34 § ADDL R10,R11,R3 ; = byte. following operand 
—E 53 D1 121A 34 CMPL =-R3, $P : is it above the stack pointer ? 
04 1B 1210 3458 BLEQU 1$ ; No = operand is not in local storage 
5B 58 AD 43 121F 3459 MOVAB TEMP(FP),RI11 3; redirect the write to TEMP 
0 ! $ rhe 1$ RSB ; return with the operand address 
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® ® 
* Routines for Unpacking and Packing Floating Values * 
fe ® 
eo ® 
PARRAAAASAASLALLASALSASLASESSSSLES ELSES ERE SEAS SESS ES EEE ESE EE ESE EE EEE SS 


Introduction 


| 
| 
| 
The ges Hi routines perform all of the conversions 
between the VAX > a pepropentes tess and the internal 
representation used by the Emulator. The unpack routines 
convert from the VAX representation to the interna 
representation and the pack routines pre the opposite 
conversion. These routines perform all of the necessary 
rounding and check for reserved values, underflow, and 
overflow. 
| 


The Unpack Routines 


The unpack routines convert a value in one of the VAX 
floating representations to our internal representation. 
The value to be converted is assumed to be contained in 
the registers starting at RO. For shooting and double 
floating values the available unpack routines only piece 
the converted value in OPERAND1. For GFLOAT and HFLOAT routines 
are available which place the result in all of the operand 
areas. 
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The unpack routines all check for a reserved floating 
value (sign bit set and biased exponent equal to zero) and 
signal a reserved operand exception if one is found. 


The Pack Routines 


The pack routines convert a value in the internal 
representation to one of the VAX slesting representations. 
The value to be converted is assumed to be in one of the 
operand areas and the value must be in OPERAND! if the value 
is to be converted to floating or double floating. For GFLOAT 
and HFLOAT routines are available to convert from each of the 
operand areas. The routines always leave the result in the 
registers starting at RO. 


Before the value is converted the rounding bit (the first 
bit of the fraction which will not eppeer in the converted 
result) is tested and if it is set the value is rounded by 
adding one to the next higher bit (the Lowest one that will 
appear in the converted result) and process ng ary carries 
that occur. When the conversion is performed the biased 
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exponent is checked for possible overflow or underflow. If an 
oyert hou condition is detected oo the condition is 
signaled. If an underflow condition is detected, then the 
condition is signaled only if the FU bit is set in the user's 
PSL. If the bit is not set then a value of zero is returned. 
If a nonzero poly is converted to zero because of underflow, 
the source value in operand area will be marked as zero so 
condition code determination will still work properly. 
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UNPACK_FLOAT1: 
MOVAB 

UNPACK_FLOAT2: 
MOVAB 


UNPACK_FLOAT3: 
MOVAB 


UNPACK_FLOAT: 
CASEB 
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UNPACK_FLOAT1 = Unpack a floating value to OPERAND1 


OPERANDI(FP), R4 
UNPACK_FLOAT 


UNPACK_FLOAT2 = Unpack a floating value to OPERAND2 


OPERAND2(FP), R4 
UNPACK_FLOAT 


UNPACK_FLOAT3 = Unpack a floating value to OPERAND3 


OPERAND3(FP), R4 


UNPACK_FLOAT 
@OP_INDEX(FP) ,ATYP_F ,#<TYP_H=TYP_F> 

UNPACK_FFLOAT-1$ ; 6 - F_floating 
UNPACK_DFLOAT-1$ 3; 7 = Difloating 
UNPACK_GFLOAT-1$ ; 8 - G_floating 
UNPACK_HFLOAT-1$ ; 9 = H_floating 
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; operand area address 


; operand area address 


; operand area address 
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1241 : 
: rh 33 : UNPACK_FFLOAT = Unpack a Floating Value 
! re o : entered by subroutine branching 
\ rh 368 : parameter: RO = Input Floating Value 
1241 565 : returns with (R4) = Converted Value 
1241 296 3 
1241 356 s uses RO-R5 
1241 3568 . 
1241 233 UNPACK_FFLOAT: ; entrance 
51 D4 1241 3570 CLRL R1 
. 43 i) 7;BRB  =—-« UNPACK_DFLOAT 3 use D_floating unpack 
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124 74 3 
! 2 o 3 UNPACK_DFLOAT = Unpack a Double Floating Value 
! 2 r 5 entered by subroutine branching 
! : 23 : parameter: RO,R1 = Input Double Floating Value | 
} r 1 3 returns with (R4) = Converted Value 
! r 3 uses RO=R5 | 
124 5 UNPACK_DFLOAT: 3 entrance 
64 D4 124 § CLRL (R4) 3 Ved the zero and sign flags 
55 50 08 07 Fe 124 2 EXTZV #7,#8,RO,R5 ; RS = biased exponent 
OA 2 124A 8 BNEQ $ ; it's not zero - bypass 
03 50 OF 4 124 5 BBC #15,R0,1$ 3 no sign bit = ski 
0A33 . ‘eo 590 BRW OPERAND_FAULT ; double floating value is reserved 
64 96 125 591 1$: INCB ZERO(R4Y : indicate a zero value 
05 125 236 RSB 3 return 
03 50 OF €1 1256 3593 2$: BBC #15,R0,3$ : no sign bit - skip 
C1 AG «096 125A 359% INCB = SIGN(R4) : indicate a negative value 
04 AS 80 AS YE 125D 3595 38 MOVAB = =128(R5) ,POWER(R4) ; store the unbiased exponent | 
50 50 10 9C€ 1262 3596 ROTL #16,R0.RO : RO = leading bits of the fraction 
00 50 «#2617 Eé 1266 3597 BBSS #23,R0,4$ >; set the hidden bit 
14A46 18 O08 50 FO 126A 3598 4$ INSV RO,#8,#24,FRACTION+12(R4); store bits 40-63 of the fraction 
51 51 10 9C 1270 3599 ROTL #16,R1,R1 ; R1 = trailing bits of the fraction 
11 AS 51 D0 1274 3600 R1,FRACTION+9(R4) 3; store bits 8-39 of the fraction 
10 AS =94 «1278 «=—3601 CLRB FRACTION+8(R4) ; clear bits 0-7 of the fraction 
08 AS =67C «(1278 «243602 CLRQ FRACTION(R4) 3; extend the fraction to 128 bits 
05 sre $287 RSB 3 return 


* z 
o 
< 
C 


<< 


v0 


Nn 3 
VAXSEMULATE_FP - Emulate floating-point instructions 16-SEP-1984 01:39:42 VAX/VMS Macro v04-00 P 
voupobe = to 4 Bh i235 82 SRCJFPEMULATE.MAR; 1 


Instruction Emulation Routines -SEP-1984 EMULAT. 


127F : 
| 4 “ : UNPACK_GFLOAT= Unpack a G_floating Floating Value 
! ff sts : entered by subroutine branching 
! or oi) 3 parameter: RO,R1 = Input G_floating Floating Value 
127F gig § returns with (R4) = Converted Value 
127F 3614 ; 
127F 3615 : uses RO-R5 
127F o18 : 
107F 3617 UNPACK_GFLOAT: ; entrance 
64 DS 127F 3618 CLRL (R4) ; clear the zero and sign flags 
> BS WBS B i 3) 619 EXTZV #4,#11,R0,R5 ; R5 = biased exponent 
OA 12 1286 3620 BNEQ ; it's not zero - bypass 
03 50 OF 4 \see 621 BBC #15,R0,1$ ; no sign bit - skip 
O9F7 31 128C 36 : BRW OPERAND_FAULT : G.floating floating value is reserved 
64 96 128F os 1$ INCB ZERO(R4D ; indicate a zero value 
05 1291 624 RSB 3 return 
03 50 OF €1 1292 3625 2$ BBC #15,R0,3$ 3 no sign bit - skip 
1A4 96 1296 3626 INCB = SIGN(R4) : indicate a negative value 
04 AS =6FCOO CS) Ss o9E:«=—1299 «63627 3S MOVAB -1024(R5),POWER(R4) 3; store the unbiased exponent 
50 10 9C 129F 3628 ROTL #16,R0,R0 : RO = leading bits of the fraction 
00 14 E2 12A3 $053 BBSS #20,R0,4$ ; set the hidden bit ; 
14 AG 15 50 FO 12A7 3630 4$ INSV RO,#11,421,FRACTION+12(R4); store bits 43-63 of the fraction 
51 51 10 9C 12AD 3631 ROTL  #16,R1.R1 : RI = trailing bits of the fraction 
10 a4 20 0B 51 FO 1281 3632 INSV ——-R1,411,#32,FRACTION+8(R4); store bits 11-42 of the fraction 
10 A4 OB 00 00 FO 1287 3633 INSV #0,#0,#11,FRACTION+8(R4); clear bits 0-10 of the fraction 
08 AS = 7C 12BD 3634 CLRQ FRACTION(R4) 3 extend the fraction to 128 bits 
05 isc? $03? RSB 3; return 
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12C1 $38 : 
} 3 o7 3 UNPACK_HFLOAT = Unpack a HFLOAT Floating Value 
: 3 ect : entered by subroutine branching | 
| : 3 eis 3 parameter: RO,R1,R2,R3 = Input HFLOAT Value | 
12C1 645 : returns with (R4) = Converted Value | 
12C1 o68 : 
12C1 364 : uses RO-R5 
12C1 ot8 : 
12C1 364 : 
10C1 3650 UNPACK_HFLOAT: ; entrance 
66 D4 12C1 3651 CLRL (R4) ; clear the zero and sign flags 
> BB >. a ce $26 EXTZV #0,#15,R0,R5 ; RS = biased exponent 
a 1 12C¢ 65 BNEQ $ ; it's not zero - bypass 
03 50 F 4 12CA 3654 BBC 5,R0,1$ 3 no sign bit - skip 
0985 1 12CE 3655 BRW OPERAND_FAULT ; HFLOAT floating value is reserved 
64 96 1201 $28 1$ INCB ZERO(R4T : indicate a zero value 
05 1203 365 RSB 3 return 
03 50 =oOOF 1 1204 3658 2$ BBC #15,R0,3$ 3 no sign bit - skip 
1A6 96 1208 3659 INC SIGN(R4) : indicate a negative value 
04 Ad E000 CS) «69E «61208 «643660 3$ MOVAB =16384(R5) ,POWER(R4) ; store the unbiased exponent 
50 BG, ea. wed 661 ROTL #16,R0,R0 ; RO = leading bits of the fraction 
00 50 10 € 12E5 66 BBSS #16 yo ; set the hidden bit 
14 AQ 11 of 7 12E9 3665 4$: INSV RO, #1 #17, FRACTION+12(R4) ; store bits 111-127 of the fraction 
51 1 10 9C 12EF 3664 ROTL #16,R1,R1 ; R1 = next bits of the fraction 
10 AG 20 OF 51 FO 12F3 3665 INSV 1,415,832, FRACTION+8(R4); store bits 79-110 of the fraction | 
2 2p 9C 12F9 366 ROTL #16 Re eRe ; R2 = next bits of the fraction | 
OC AG 29 OF 52 FO 1 FD 66 INSV  R2,#15.#32,FRACTION+4(R4S; store bits 47-78 of the fraction 
7% 9C 130 668 ROTL #ié Re -Re ; R3 = next bits of the fraction 
08 AG «620 «(OF:)«= 53 FO «1307 «3669 INSV 3,415,832, FRACTION(R4) ; store bits 15-46 of the fraction 
08 AA) «€6UOF:€«€600:si—«CiN:t=‘“‘ f&~O GUY 8 670 INSV #0,#0,#15,FRACTION(R4) ; clear bits 0-14 of the fraction 
05 siz 303) RSB ; return 
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1314 3674 : 
! 1? of : PACK_FLOAT1 = Pack a floating value to OPERAND1 
1314 879 PACK_FLOAT1: 
C7 AD SE 1314 978 MOVAB OPERANDI(FP), R4 3; operand area address 
OA 11 1318 367 BRB PACK_FLOAT 
131A 3680 
131A 3681 3 
: 1 ons : PACK_FLOAT2 = Pack a floating value to OPERAND2 
131A 3684 PACK_FLOAT2: 
AF AD 9E 131A 3685 MOVAB OPERAND2(FP), R4 ; operand area address 
ee. 3 686 PACK FLOAT 
132 687 
1 $ 688 3 
3 3 ret 5 PACK_FLOAT3 = Pack a floating value to OPERAND3 
1 20 691 PACK_FLOAT3: 
97 AD 9E 1320 O36 MOVAB Ag rg he R4 ; operand area address 
1324 369 ;BRB PACK_FLOA 
1324 3694 
135¢ 695 PACK_FLOAT: 
8B BD BF 1324 696 CASEB a0P aerate? ATYP_F ,A<TYP ond F> 
0008" 1329 3697 1$: <WORD PACR_FFLOAT-1$ 3 §- F floating 
0059' 1328 3698 ~ WORD PACK-DELOAT<18 ;7- D- floating 
00B3' 132D 3699 ~WORD PACK_GFLOAT-1$ ; 8 -G _floating 
0112' 36 $508 » WORD PACK ~HFLOAT= -1$ >: 9-H _floating 
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1331 3703 $ 
! : f : : PACK_FFLOAT = Pack an F_floating Value 
: : § 3 entered by subroutine branching 
: parameter: = Source Value 
: ! 8 (R4) S Val 
: ! oy : returns with RO = Converted Floating Value 
1331 ar PACK_FFLOAT: ; entrance 
93 646 €9 1331 3571 BLBC ZERO(R4) ,2$ ; value is not zero - bypass 
50 04 1334 3714 1$: CLRL RO ; clear the value 
05 1336 3715 RSB 3 return 
11.14 AG O07 €1 1337 3716 2$: BBC #7, FRACTION¢+12(R4),3$  ; reuna ae bit is zero - bypass 
14 AG 00000100 BF CO «133C «3717 ADDL2 #188,FRACTION+12(R4) § ; round the value ; | 
07 1E 1344 3718 BCC 3 no carry out of fraction - bypass 
04 AS D6 1346 3719 INCL POWER(R4) 3; increment the exponent 
50 04 it 94 720 CLRL RO ; clear the fraction bits 
11. 1348 3721 BRB 4$ 3; bypass 
50 14 AG =608 = 134D 57 ¢ 3$: ROTL, #8,FRACTION+12(R4),RO ; load the fraction 
51 04 AG 00000080 8F C1 1352 3723 4$: ADDL3 #128,POWER(R4) ,R1 ; R1 = biased exponent 
14 1358 tse BGTR 5$ ; it’s greater than zero - bypass 
64 01 D0 135D 3725 MOVL #1, (R4) 3 mark the original value as zero 
CF 54 AD 06 £1 1360 3726 BBC.  #PSL_FU,PSL(FP),1$ : mo fault enabled - return zero | 
092F . /.aen ater BRW UNDERFLOW 3 process the floating underflow | 
51 O00000FF ae } 1392 3/58 5$: cor ae? RI : be ae too large ? | 
0934 2% 1371 56 BRW OVERFLOW 3 process the floating overflow 
50 09 7 §% FO 1374 3731 6$: INSV R1,47,49,R0 ; insert exponent and clear sign 
04 01 AG «ED «(1379 132 BLBC  SIGN(R4) -7$ : is the value negative ? | 
0050 OF €2 137D 373 BBSS #15,R0,7$ ; yes - set the sign bit 
05 1381 3734 7$: RSB 3 return | 
1382 3735 ; 


VAXSEMULATE FP 
v04-000 


03 64 

50 

15.10 A407 

10 AS 00000100 8F 
14 AG 4 


0 
04 A4 
50 


OA 

0 14 A4 08 
1 117 A410 
00000080 8F 


oun 


04 A 
64 1 
C6 54 AD 06 
08D 
52 Q00000FF BF 


O8DA 


50. 009 
04 01 A4 
00 50 =—OOF 


—“ 


AAUMMUUIUVIVNIUIUI ES BEE EEE ER EW 


SQL 
WR CO OONAUES WN OOONAUE WhO 


Omm NWO WMS 37 OO] NO -OoOmowm 
VIN OOO S| SOF 390 ][OOMWO-UIMO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ODNWMD OPTS VNUIO NVOMD OM oc 


WAWAWAAAWNANAWWWNNAIW 
SVVTVICCCCWWWWOr Sy Sr Fr OW00O® 


PACK_DFLOAT: 
BLBC 


4 
- Emulate floating-point instheitlonh 16-SEP-1984 
Instruction Emulation Routines 


“SEP-1984 


1:39:42 VAX/VMS M 
Saag: ge SRC 


r 
EMULAT.SRCJFPEMULATE.MAR; 1 


PACK_DFLOAT = Pack a D_floating Value 
entered by subroutine branching 


parameter: 
returns with 


ZERO(R4) ,2$ 
RO 


#7, FRACTION+8(R4) 
#188, FRACTION+8 (RG 
#0, FRACTION+12(R4) 
POWER(R4) 

RO 


4$ 

#8 FRACTION+12(R4) ,RO 
#16, FRACTION+9(R4) RI 
#128, POWER (R4) ,R2 


#1, (R4) 
#PSL_FU,PSL(FP),1$ 
UNDERF LOW 


e 


OVERFLOW 
R2,47,49,RO0 
SIGN(R4) .7$ 
#15,R0,7$ 


(R4)= Source Value 
RO,R1 = Converted Double Value 


entrance 

value is not zero - bypass 

clear the value 

return 

; pene bit is zero - bypass 

; round the value 

; propagate any carry 

; no carry out of fraction - bypass 
; increment the exponent 

; clear the fraction bits 


ypass 
; load the first part of the fraction 
; load the second part of the fraction 
; R2 = biased exponent 
; it's greater than zero = bypass 
; mark the original value as zero 
; no fault enabled - return zero 
; process the floating underflow 
is the exponent too large ? 
no - skip 
process the floating overflow 
insert pty and clear sign 
is the value negative ? 
yes - set the sign bit 
return 


o V04-00 Pp 
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Instruction Emulation Routines SEP-1984 00: EMULAT.SRCJFPEMULATE .MAR; 1 
13D0C 3773 H | 
pe a ; PACK_GFLOAT = Pack a G_floating Value 
} 43 ae : entered by subroutine branching | 
: $3 ah : parameter: R4 = Location of Source Value | 
: 4: ? : returns with RO,R1 = Converted G_floating Value 
130¢ 37 : PACK_GFLOAT: : entrance 

03 64 59 135DC 37 BLBC "autem ; value is not zero - bypass 
50 f 13DF 3784 1$: CLRQ R 3; clear the value 
05 13€1 3785 RSB 3; return 
15 10 AG pA es 6} ES 7 § 2$: BBC #10,FRACTION+8(R4),3$ ; rounding bit is zero - bypass 
10 AS 00000800 BF CO 13E7 37 ADDL2 #1a{1,FRACTION+8(R4)  : round the value 
14 A4 00 D8 I3EF 53788 ADwC #0, FRACTION+12(R4) 3 propagate any carry 
07 1€ 13F3 3789 BCC 3$ 3 no carry out of fraction - bypass 
04 AG D6 13F5 3790 INCL POWER (R4) : increment the exponent 
50 7C 13F8 3791 CLRQ RO ; clear the fraction bits 
OF 11 13FA 379 BRB 4$ ; bypass 
50 14A46 QOS 9C I3FC 3793 38 ROTL #5,FRACTION+12(R4),RO  ; Load the first part of the fraction 
51 10 AG 0 0B 33 1401 3794 EXTV 11,#32,FRACTION+8(R4),R1 ; load second part of the fraction 
51 51 10 9C 1407 3795 ROTL.  #16.R1,R1 ; Unscramble the bits 
53 04 A4 00000400 8F C1 1408 3796 4$ ADDL3 #1024,POWER(R4) ,R3 ; R3_= biased exponent 
0B 14 1414 53797 BGT $ ; it’s greater than zero - bypass 
64 01 DO 1416 3798 MOVL #1, (R4) ; mark the original value as zero 
C154 AD 06 é] 1419 3799 BBC #PSL_FU,PSL(FP) ,1$ : no fault enabled - return zero | 
876 1 141E 3800 BRW UNDERFLOW : 
53 OOOO07FF 8F D1 1421 3801 5$: CMPL #2047,R3 3; is the exponent too large ? 
03 18 1428 4 BGEQ 6$ ; no - skip 
0878 31 142A 380 BRW OVERFLOW 3; process the floating overflow 
50 0c 04 53 £0 1460 804 6$: INSV R3,#4,#12,R0 ; insert exponent and clear sign 
04.01 AS £9 1432 3805 BLBC  SIGN(R4) , 78 ; is the value negative ? 
0050 OF £2 1436 3806 BBSS  #15,R0,7$ > yes - set the sign bit 

05 143A $E06 7$ RSB 3; return 

1438 3808 ; 


; process the floating underflow 
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1438 1 : 
1 : 1 : PACK_HFLOAT = Pack an H_floating Vaiue 
1? ; 18 : entered by subroutine branching 
1 : 12 : parameter: R4 = Location of Source Value 
12 ; 1? 3 returns with RO,R1,R2,R3 = Converted HFLOAT Value 
1438 i§ PACK_HFLOAT: : entrance 
05 64 £2 1438 0 BLBC ZERO(R4) ,2$ ; value is not zero = bypass 
8 C 14 1 1$: CLRQ Rg ; clear the first part of the value 
7C «144 § CLRQ R ; clear the second part of the value 
05 144 RSB 3; return 
1F 08 AS OE €1 144 824 2$: BBC #14, FRACTION(R4) ,3$ 3 rounding bit is zero - bypass 
08 A4 00008000 BF CO 1448 5 ADDL2 #1ai5,FRACTION(R4) ; round the value 
OC AS =«600)0—SsiBs«é1450 § Dwc #0, FRACTION+4(R4) 3 propagate carry into third part 
10 A4 00 DB 1454 ADWC #0, FRACTION+8(R4) 3 propagate carry into second part 
14 A6 00 08 1458 38 8 ADWC #0, FRACTION+12(R4) 3 propagate carry into first part 
09 16 145¢C 38 BCC 3$ 3; no carry out of fraction - bypass 
04 A4 D6 145€ 3830 INCL POWER(R4) 3; increment the exponent 
50 7C 1461 3831 CLRQ RO ; clear first part of the fraction 
36 7C 1463 38 ¢ CLRQ R2 3; clear second part of the fraction 
3 11 1465 383 BRB 4$ ; bypass : 
50 14 AG 1 78 1467 3834 3$: ASHL #1, ,FRACTION+12(R4),RO ; load first part of the fraction 
51 10 A4 ¢9 OF €E 1096 $32 EXTV #15 ,#32,FRACTION+8(R4),R1 ; Load second part of the fraction 
51 1 10 9C 14 8 § ROTL o19-Ri R1 >; reverse the words 
52 OC A4 0 OF 33 1476 383 EXTV #15.#30,FRACTION+4(R4),R2 ; Load third part of the fraction 
52 10 C 147C 3838 ROTL #19-k R2 3; reverse the words 
53 08 Ad OF gE 1480 839 EXTV #15.#30,FRACTION(R4),R3 : Load third part of the fraction 
10 C 1486 $79 ROTL #16,R3,R3 3; reverse the words 
55 04 AG 00004000 8F C1 148A 41 4$: ADDL3 #16384. POWER(R4) ,RS ; RS = biased exponent 
0B 14 «1493 9) BGTR 5$ ; it's greater than zero - bypass 
64 O01 DO 1495 384 MOVL #1, (R4) 3; mark the original value as zero 
A154 AD 06 a 1498 3844 BBC #PSL_FU,PSL(FP),1$ : no fault enabled - return zero 
O7F7 1 1490 3845 BRw UNDERF LOW 3 process the floating underflow 
55 OOOO7FFF 8F O01 1289 548 5$: CMPL #32767,R5 : is the exponent too large ? 
03 18 146A 4 BGEQ 6 3 no - skip 
O7FC 31 14A9 3848 BRW OVERFLOW : process the floating overflow 
55 GO 14AC 3849 6$: MOVW R5,R0 3; insert supenens and clear sign 
04 01 AG «ED «14AF «3850 BLBC S1GN(R4) 7$ : is the value negative ? 
0050 OF €E2 1483 3851 BBSS #15,R0,7$ 3; yes ~- set the sign bit 
05 oe 14 52¢ 7$: RSB 3 return 
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~SBTTL STORE OPERAND 


STORE_OPERAND = Move result to destination 


148 5 
148 § 
128 
148 3 : 
178 4 ; entered by BSBW 
148 6¢ : arguments: RO-R3 contain operand to store 
148 6 5 R11 contains address of destination 
128 rt: : OP_INDEX(FP) contains pointer to type code 
148 : 
148 9 STORE_OPERAND: 
08 01 8B BD BF 148 oe CASEB @0P_INDEX(FP) ,ATYP_B,#<TYP_H-TYP_B> 
ges HHP HS AB GETS ey 
" - 3: 2° wor 
BOIA' 14e1 3871 "WORD 48-18 oe ee 
0022' 14C¢ 1h ~WORD go-33 : 4 = quadword 
Bie eR IE ig: Fines 
0028" 14€9 3875 “WORD 6$-1$ : 7 = Difloating 
0022' 14CB 576 -WORD 6$-1$ 3; 8 - G_floating 
OO1E' 1e6e 144 -WORD 58-18 ; 9 = H_floating 
68 50 90 14CF 3879 2$: MOVB RO, (R11) : byte 
05 1906 880 RSB ; 
668 50 60 14D 881 3S: MOVW RO, (R11) 3; word 
05 14D6 rt RSB : 
6B 50 rt be 44 th 4$: thy RO, (R11) ; longword 
08 AB «452 «67D «(1408 «(3885 S$: MOVQ = R2,8(R11) : octaword 
68 50 7D 14DF 3886 6$: MOVQ RO, (R11) 3 quadword 
05 1cEe 887 RSB ; 
14€3 3888 
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bit indicates that the represented 
value is negative. If the low order 
bit of ZERO is set then this field 
must be zero. 


POWER is a longword field which contains the 
exponent of the power of two which 
is used to scale the fraction 


FRACTION is a 128 bit field (four longwords) 
which hold the fraction as a single 


E 
14E 39 ; LARRABAAAALALARAAAAAAASASASELASEL ESLER ESE E SEER EERE EERE RRS A OES 
14E 9 : * * 
14E 35 : * * 
Vee 87 / - Arithmetic Routines * 
5 * 
14E 95 ; * * 
a 38 4 PAAAARAAALABRALALALASLASLESELEE ESE SESE EEE E RE RE RRR RRR RECESSES SELES SY 
4E 3 
14E 38 : 
3 +44 : Introduction 
14E3 3901 ; 
14E $0¢ 3 The routines which follow perform the actual egy 
14E 90 ; arithmetic operations of the Emulator. These routines al 
14E 904 3 work with the internal floating representation so only one 
14E 905 3 routine is needed for each type of operation. However, since 
14E 44 : multiplication and division are comparatively slow operations 
14E 90 ; separate routines have been included for the GFLOAT and HFLOAT 
14E 908 : versions of these operations so the GFLOAT operation will not 
125 +44 3 be slowed to the speed of the HFLOAT operation. 
14E 911 ; The algorithms for the individual routines will be 
14E aig ; described in the routines themselves. The following discussion 
14E 91 ; will be Limited to a description of our internal floating 
Vee ate ; format. 
14E 916 3 
ie 4 3 Internal Floating Representation 
14E3 3919 ; 
14E 920 : ALL of the floating arithmetic operations used by the 
14E 921 ; Emulator are performed using an internal floating format 
14E 9 ; : which is much easier to work with than any of the hardware 
14E 9 3 floating representations and which is sufficiently accurate 
14E 924 ; to represent all of the hardware representations. The format 
14E 925 3 s also used as an intermediate representation for emulating 
Vee 2 § § the conversion instructions. 
iz , 8 : The internal representation has the following four fields: 
14E3 3930 ; 
14E 931 ; ZERO is a one byte field whose low order 
: ndicates tha e represente 
14E 9 ¢ bit indicates that th ted 
Vee 3 Z ; value is nonzero. 
: is a one e field whose low order 
14E 935 SIGN i byte field wh l d 
14E 936 3 
14E 937 3 
14E 938 ; 
14E 939 3 
14E 940 : 
14E 941 3 
14E 9 ¢ 3 
14E 9 3 
14E 944 3 
14E 945 3 
14E F 
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14E 947 : 128 bit value. The decimal point is 

14E ae8 : assumed to be at the end of the 

14E 94 3 fraction next to the high order bit. 

14E 950 5 The fraction is considered to be a 

14E 951 : a positive value and is normalized 

14E 326 : if the high order bit is one. 

1263 $982 ; 

14E 955 : Three areas OPERAND1, OPERAND2, OPERANDS are available for 

14E 956 : holding values in the internal representation. The name of 

14E 957 3 of a field of one of these areas is found by appending the 

14E 928 s greiline digit of the area name to the field name. Thus 

a 826 3 POWER2 is the POWER field of OPERAND2. 


<< 
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14E 96 3 
VE i 3 NEGATE_REAL = Negate a Real Value 
Vee 302 : entered by subroutine branching 
14e $87 : parameter: OPERAND1 = The Floating Value 
Vee $09 ; returns with OPERAND1 = The Negated Result 
16E 971 : Discussion 
14E 358 : If the value is nonzero, then the sign of the value 
\eE are : is complemented. 
14E 976 NEGATE_REAL: ; entrance 
04 C7 AD cs 14E 97 BLBS ZERO1(FP).1$ ; don't negate zero 
C8 AD (1 C 14€ 44 XORB2 #1,SIGN1\. : complement the sign 
05 ieee 44. 1$: RSB 3; return 
eee Ht : FLOAT_LONG = Convert a Longword to a Floating Value 
4 33 388 : entered by subroutine branching 
1eEe +H : parameter: RO = The Longword Value 
Vee 4 H4 : returns with OPERAND1 = The Converted Value 
148 989 : Discussion 
14EC 3991 : The Longword is converted to double floating using the 
14EC 1444 3 hardware and then to the internal representation by one of 
ieee 387 : the unpack routines. 
14EC 999 FLOAT_LONG: : entrance 
14EC 397 ; The original code used CVTLD, which we can no Longer assume is supported 
14EC 3998 ; in hardware. The action of a (YTLD RO,RO is therefore emulated using 
eee 1300 3: non-floating instructions. 
ieee rts 4 & CVTLD = RO,RO 3; convert the value to double floating 
52  O00000A0 8F 00 ies 4008 : MOVL #<128+32>,R2 3; set initial biased exponent 
51 D4 14F3 4004 CLRL R1 ; zero ‘‘Low’’ Longword 
39 3 iene ' 5 TSTL 0 3; test sign of value 
3 13° 1477 4 $ BEQL 30$ ; skip if zero 
A 14 14F9 400 BGTR 20$ ; skip if positive 7 
52 9100 A rr 1Sf8 rts pisee igh ls : rensnber that it is negative 
28 10 13 3 4010 BVS ay : Skip shift Loop if -2**32 
p 1 4011 20$: DECL R2 ; decrement binary exponent 
50 50 01 8 1507 4 \¢ ASHL #1,R0,RO ; shift value left one bit 
Fe 1C 1308 401 BVC 2o$ : repeat until bit 51 set 
°° 2 9 9C 150D 4014 25$: ROT #8,R ; rearrange into floating format 
51 50 OFF ef AB 1511 4015 BICW3 #*XOOFF,RO,R1 : move low 8 bits into place in R1 
50 09 2 FO 1517 4 18 INSV R2,47,#9,R 3; move signtexponent into place 
54 C7 AD 3 131¢ 4017 30$: MOVAB OPERANDI(FP)R4 3 set operand address 
FD20 1520 4018 BSBW - UNPACK_DFLOAT ; unpack the value 
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FIX_REAL = Convert a Floating Value to a Longword (Truncated) 

entered by subroutine branching 

parameter: OPERAND1 = The Floating Value 

returns with RO = Longword Result 
Discussion 

The exponent is used to determine where in the fraction 

the decimal point Lies and any part of the integer part that 
exists within the signed fraction is extracted. If the 


| 

| 

| 
fraction contains bits of higher order than those encrected, 
then the V bit is set "in the user's PSL to indicate an integer 
| 

| 

| 
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1524 4 
1524 4 
1524 4 
1524 4 
1524 4 
1524 4 
18246 4 
1524 4 
1524 4 
1524 4 
1524 4 
1524 4 
1524 4 
1524 4 
1524 4 
1524 4 
1524 4 ie alg 
1524 4 
1524 4 FIX_REAL: ; entrance 
50 D4 1524 4 CLRL 0 ; clear the returned value 
29 C7 AD EB 1526 4 BLBS ZEROI(FP),2 ; the value is zero - return 
51 (BAD ce 152A 4 MNEGL PERRI EPS OR ; Rl = negated exponent 
23 18 152E 4 BGEQ 2 : value is less than one - return 
CB AD ¢ | 133? : ys #32,POWER1 (FP) : is es\= bypass. point deep inside ? 
50 DF AD CB AD 51 EF 1536 4 EXTZV R1,POWERI(CFP), FRACTIONI+16<6P) , RO” 3; extract leading bits 
03 C8 AD £9 1530 4 BLBC SIGNI(FP),1$ : the value is ositive - skip 
50 50 CE 1541 4 MNEGL RY. RO 3; negate the 
51 50 01 9C 1544 4 1$: ROTL ; position the “sie n bit 
1° CB AD 8C 1548 4 XORB2 sient CrP) RI 3 complenent it i negative value 
0451 €9 154€ 4 BLBC R ‘ the si gn is correct - sk se 
54 AD 02 (CB 154F 4 BISL2 #PSLM_V,PSL(FP) ; indicate an integer overflow 
05 1553 4 tH RSB : return 
4 AD 02 CB 1554 4 $ BISL2 #PSLM_V,PSL(FP) ; indicate an integer overflow 
51 OOA0 C1 9E 1558 4 MOVAB 160(RT),R1 : switch origin to previous Longword 
F4 15 1550 4 BLEQ 2s no nonzero bits - retu 
50 CB AD $8 51 EF 155F 4 EXTZ RY #32 .FRACTIONI~4¢FP) RO 3 extract 32 bits from: the fraction 
51 > sae te Fes 6S SUBL ; con ute the bits to clear 
05 15 1569 4 BLEQ 4$ : its to clear - bypass 
50 51 00 00 FO 1568 406 INSV #0,#0,R1,R0 : Sear some low order” its | 
DF C8 AD E9 1570 4063 4$: BLBC SIGNICFPS ,2$ ; the value is positive - return 
50 50 CE 1574 4064 MNEGL RO,RO : complement the extracted bits 
05 13er 4065 RSB 3 return 
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137 4 $8 : 
130 : 9 : ROUND_REAL = Convert a Floating Value to a Longword (Rounded) 
130 : 4 : entered by subroutine branching 
137 2 74 3 parameter: OPERAND1 = The Floating Value 
137 rh Th 5 returns with RO = The Longword Result 
157 4077 $ Discussion 
1578 4078 $ 
157 tte 4 ; The exponent of the looting value is used to determine 
1578 4080 : where the decimal point goes within the signed fraction and 
157 r++ ; whatever part of the speeger part exists within the fraction 
1578 40 ¢ 3 is extracted. If the bit immediatly below the decimal point is 
1378 408 : nonzero, then the integer part is rounded by odding a value 
1578 4084 : of one with the same sign as the floating value. If the value 
1328 4085 ; contains significant bits of higher order than those in the 
1578 4086 ; fraction or if overflow occured during the rounding operation 
1578 4087 : then the V bit is set in the user's PSL to indicate an integer 
1578 4088 3 overflow. 
1378 4089 : 
1578 4090 ROUND_REAL: 3 entrance 
50 D4 1578 4091 CLRL RO ; clear the returned value 
39 C7 AD E8 157A 2038 BLBS ZERO1(FP) ,3$ ; the value is zero - return 
51 (BAD CE 157E 409 MNEGL POWER1(FPS,R1 ; R1 = negated exponent 
33 14 «#1582 4094 BGTR 3; the value is less than 0.5 - return 
CB AD 20 D1 1584 4095 CMPL #32, POWER1 (FP) : is the decimal point deep inside ? 
gf 19 1588 4096 BLSS ; yes - bypass ‘ 
50 DF AD CB AD 1 EF 158A 4097 EXTZV R1,POWER1(FP),FRACTIONI+16(FP),RO ; extract some leading bits 
3F 6CO «1591 = 4098 ADDL2 #65,R ; *** equivalent sequence to *** 
08 D7 AD 51 #=Ei 1594 4099 BBC R1,FRACTIONI+8(FP),1$ ; *** get around hardware problem *** 
1599 4100 ; DECL 3; compute the rounding position 
1599 4101 ; BBC R1,FRACTIONI+16(FP),1$ ; rounding bit is clear - skip 
50 D6 1599 2138 INCL RO 3; round the extracted bits 
046 1E€ 1598 410 BCC 1$ 3 no carry - skip 
54 AD O02 CB 159D 4104 BISL2 #PSLM_V,PSL(FP) : indicate an integer overflow 
03 C8 AD £9 15A1 4105 18: BLBC SIGNITFP),2$ : is the floating value negative 
50 50 CE 15A5 4106 MNEGL ° 3 yes - complement the value 
51 50 01 9C 15A8 4107 28: ROTL #1,R0,R1 ; position the sign bit 
51 C8 AD 8C I5AC 4108 XORB2 SIGN1(FP),R1 ; complment it if negative value 
04 51 =~«€9 1380 4109 BLBC ; the sign is correct - ship 
54 AD 02 (CB 1583 4110 BISL2 #PSLM_V,PSL(FP) : indicate an integer overflow 
05 1587 4111 3$: RSB ; return 
4 AD 02 C8 1588 2146 4$: BISL2 #PSLM_V,PSL(FP) 3 indicate an integer overflow 
51 OOAO C1 15BC 411 MOVAB 160(RT),R1 3 switch origin to previous longword 
F4 15 15C1 4114 BLEQ ; No nonzero_bits - return 
50 CB AD 20 51 #4EF 15€3 4115 EXTZV Ri #32, FRACTIONI~4(FP) ,RO : extract 32 bits from the fraction 
52 20 51 C3 1509 4116 SUBL3 R1,#32,R2 3; compute the bits to clear 
07 19 15CD 4117 BLSS ; possible rounding = skip 
50 52 00 00 FO 15CF aii8 INSV #0,#0,R2,R0 3; clear some low order bits 
09 11 #1504 411 BRB 6$ ; bypass . 
2} 07 1206 4120 5$: DECL Ry 3 compute the rounding bit : 
02 CB AD 1 €1 1508 4121 BBC R1,FRACTIONI-4(FP),6$  ; the rounding bit is clear - skip 
50 6 15DD 41 ¢ INCL 3 round the extracted bits 
D4 C8 AD E9 I5DF 4125 6$: BLBC SIGNI(FP),3$ ; the value is positive - return 
50 50 CE 15€3 4124 MNEGL RO,RO 3 negate the value 
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FRACTION_REAL = Isolate the Fraction Part of a Floating Value 
entered by subroutine branching 


parameter: OPERAND1 = The Floating Value 
returns with OPERAND1 = The Fractional Part 
Discussion 


The exponent is used to determine the position of the 
decimal point within the fraction and all of the bits of 
the fraction above the decimal point are cleared. The result 
is then normalized. 


FRACTION neat 


Sete Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge 


entrance 


19 C7 AD €E8 BS ZERO (FP) ,1$ 3; the value is zero - return 
50 (BAD 00 MOVL POWER1(FPS,RO : RO = the exponent 
2 ae BLEQ 1$ 3; the value is all fraction - return 
1 Ff 8 34 EXTZV #0,#5,R0,R1 ; R1 = bits to clear in Last longword 
5 5 FB 8F 8 ASHL #-5RO,RO ; RO = number of Longwords to clear 
50 04 O01 CMPL #4,R0 3 will we clear the whole value ? 
05 14 BGTR 2$ 3 no - bypass 
C7 AD O01 DO MOVL #1, OPERAND1 (FP) 3; mark the value as zero 
05 1$: RSB 3 return se 
oe Eee eee 2$: SUBL3 R1,#32,R2 3 compute the Last clear position 
5 DF AD ODE MOVAL FRACTION1+16(FP),R3 ; R3 = clear index 
0¢ 11 BRB 4$ 3; enter the clear loop 
7 D4 3$: CLRL -(R3) ; clear a longword of the fraction 
FB 50 =F4 4$: SOBGEQ RO,3$ 3; more sengueree to clear - loop 
teh ht... INSV #0,R2,R1,-4(R3) ; perform the Last clear 
0362 30 BSBW NORMALIZE 3: normalize the result 
05 RSB 3 return 
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ADD_REAL = Add Floating Values 
entered by subroutine branching 


parameters: OPERAND1 = First Floating on 
OPERAND2 = Second Floating Operand 


returns with OPERAND1 = The Floating Result 
Discussion 
| 


This routine performs the addition of floating values 

in the internal representation in such a way that the sum is 

the exact sum truncated to 127 or 128 significant bits. This 
precision is sufficient for performing 6. Feat ine and HFLOAT additio 
since these operations are based on truncating the exact sum 

to smaller numbers of significant digits. 


After preliminary checks for zero operands, the general 
addition is performed by first peomp bdl an a primary and a 

secondary operand with the primary operan being sufficiently | 
Large that it will not need to be shifted to al 7 the values. 

This choice is made by eyenterns the exponents. If the 
operands have opposite signs, the fractions are further 
compared so the magnitude of the primary operand is larger 
than the magnitude of the secondary operand. The primary and 
secondary operand fractions are loaded into groups of 
registers and the primary operand is shifted to the right one 
bit to allow for overflows. The secondary operand fraction is 
shifted to Line it up with the primary operand fraction. If 
the oi of the operands are not the same then a record is 
made if any significant bits are ‘ost during the aitanment of 
the secondary operand fraction, Tne resulting fractions are 
added or subtracted and an additional one is subtracted if 
Lost bits were detected in the test made above. The result 

is then normalized. 
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ADD_REAL: ; entrance 
50 C7 AD 9E M DICFP),RO ; RO = Location of first operand 
51 AF AD 2 D2(FP),R1 ; R1 = location of second operand 
4161 €E 1),3$ : second operand is zero - bypass 
15 60 €9 0),1$ ; first operand is not zero - bypass 
C7 AD AF AD 00 MOVL  OPERAND2(FP) ,OPERANDI(FPS ; copy, the sign and zero flags | 
CB AD B83 AD 9 MOVL POWER2(FP) ,POWER1 (FP) ; copy the exponent 
CF AD B87 AD D MOVa FRACTIONS (EP) FRACTIONI(FP) ; copy second half of fraction 
D7 AD BF AD rp aoe FRACTION +B (FP) -FRACTIONT +8(FP) ; copy first half of fraction 
; done 
04 Al 04 AO 01 1$: CMPL POWER(RO) ,POWER(R1) 3 compare the exponents 
2A «(14 BGTR 5$ ; first is greater - bypass 
21 19 4% ; second is greater - bypass 
01 Al O1 AO 91 CMPB gL OMtnS? ASNT: 3; compare the signs 
21. 13 BEQL $ ; they're equal - bypass 
26 18 AO 9E MOVAB FRACTION+16(RO),R ; R2 = position past first fraction 
5 18 Al of MOVA® _ FRACTION+16(R1),R ; RS = pos tt ion past second fraction 
3 4 OD MOVL #4 RS ; R4 = loop counter. 
3 2 O1 2s: CMPL -(R2) ,-(R3) ; compare two fraction longwords | 
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- STORE _OPERAN 
v04~ i ; first is greater - bypass 
1 BGTRU 5$ / is greater - bypass 
08 if 1884 , ¢ eLssy, ay 2$ ; aoe Loaniete to compare - loop 
oot Fb ibe 155% ROVE #1 JOPERAND1 (FP) ; mark the result as zero 
am BS 188A 4225 3$: RSB 1 : RY ‘= secondary operand location 
ao Ow i 2 5 bi MOVA SPERAND (FP) ,RO ; Rg = primary operand location 
30 ~ mime SUBLS POUERERT) POUER(RO) .R2 ; RD = exponent difference 
52 04 A0 04 a} cS 1873 ‘ 8 5$ ee a POWER(RO) POWER (FP) ; store the result srpenens 
5s ior Sie XORB TEnn cops bestiaas ¢ r lt sign and zero flag 
or a ee eae i b Achasst ShlVeed seat Teneo 
55 o¢ i H r ie AHO eat eb ape Re a7’ Yirst two shifted Longwords 
4 24° ’ : clear the high order 
© 1 00 57 ME ES 169K 6535 REG #1 CERACTION(RO) ,FRACTIONICER)  “shiftoroureh result Longword 
See Bal BE Gh FE a te dh ta ae a 
BD Moc bo 4¢38 ASHQ oe dnart lant oe s 1+8(FP) : position second Longword 
0 OP AD OP AD OL PR 1888 4239 ASHL #1 FRACTION] +8(FP) ,ERACTION (FP) ; Ch itt first two longwords 
7-270 8 ims ASG 4-1, FRACTION®B(RO) ,FRACTIONI+B(FP) shi t first t 
WS oo ae ite gare BBCC #31, FRACTION #12(FP) ,78 ; clear the high order bit 
gia Or BO 1ece 6 ts CAPE 4139 R2 : is the shift count large ? 
O000007F 8F Di 16C7 424 CMPL #27, : no - skip 
* 064 18 16CE 4244 GE 8$ ; yes - use a smaller one 
= 7 © ley 2 rf 8$ 5 oo ae ; ts the shift count zero ? 
38 3 1606 : ‘ CRPL ies R2 1s che shite more than a longword ? 
& @ . — s 
3 i3 if 1808 43 Pete Rae : {s the ast longword zero ? 
02 13 16DF 4 51 re 6 Sess tae negation adjustment 
38 D4 16E1 4 28 CLRL ri 2 : decrement the shift count 
22 «620 «C2 16ES «4255 9S: sUBL2 = #22, R ; shift the last two longwords 
54 33 7D 1666 4254 MOVQ R5.R4 : shift the revious longword 
56 «657 «6016 E9 é 23 Cree 4 : clear the Teading Longword 
: n 
eG i ieee 4257 BRB 8$ 9 : Ro ae enift count r 
29 52 ce 16F0 é 38 108s ONE FORD R4,#0 ; are the low order bits zero ? 
52. 00 «ED 16F3 425 CHPZV #0 ,R2.RG, g are the \o 
a eee 02 13 16F8 4260 rer i ; clear the negation adjustment 
28 6 IGFA 496) ceok Re 4,R4 : shift the Last Longword 4 
56 54399 Vere bebe 118: ASHE RG.RG RG i position the previous Longwor 
32 33 35 15 1704 d 64 ASHQ = RY, R5,R'5 : peatnten the previous longword 
56 56 33 ee 1708 1502 ASH ROoRe RE : shift ap racee ag Bem gests: 
. : on = 
SOL a a Bt : hotament ede pNsra, 
' : se 
5 ig COR Rens ; conplenent Fated, Longuerd 
65 0B Ine aor) ROM, Rg i complement Lest, tongword. 
54 «4558 «26CO SCI7IF C4 i ADDL Re oRe ; propagate any carry 
a ae ea (SEEEES 
x ; propa 
7 } of 1758 457 13$: AbDL2 Re FRACTION (FP) 3 odd t e fourth, Longuords 
BS AD 8S (OB 195F 0599 ADWC = RS, FRACTION1+4 (FP) ; add the thir 
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; return 
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AX ATE_FP late floa 
vy la IPLY_FLOAT P1984 EMULAT. SRCJFPEMULATE MAR; 1 
173F 4284 -SBTTL MULTIPLY_FLOAT 
Ha 
7 , § 5 : MULTIPLY_FLOAT = Multiply Two Floating Values 
7 f 4 8 : entered by subroutine branching 
173F 4291 : parameters: OPERAND2 = First Floating Factor 
i : ? 3 3 OPERANDS = Second Floating Factor 
173F 4294 : returns with OPERAND1 = The Floating Product 
7 : ? + : RO = Normalization Shift Count 
173F 4 3 : See MULYIPLY_xFLOAT routines for more information. 
a 
173F 4300 MULTIPLY_FLOAT: 
03 06 88 BD 8F 173F 430 CASEB aoP [WER EP) . ATYP_F ,A<TYP_H=TYP_F> 
0008" 1744 4 O¢ : <WORD MULTIPLY_FFLOAT-1$~ : F_floating 
005B8' 1746 430 eWORD MULTIPLY “DGFLOAT=- -1$ : D- floating 
005B' 1748 4304 «WORD MULTIPLY_DGFLOAT-1$ ; G_ floating 
OOAB’ 174A 4305 -WORD MULTIPLY— HFLOAT=1$ ; H floating 
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-SBTTL MULTIPLY_FFLOAT 
Discussion 


VAX LATE_FP - Emu 
vive ti <@ MULTI 


This routine forms the product of two floating values 
in the eres representation and ot head i al Limits the 
accuracy to 32 bits. Only the high order 32 bits of each of 
the operand fractions is used and the result is the high 

order 32 bits of the exact product. The remaining bits of the 
fraction are zero. Upon return the register RO contains the 

distance the product was shifted during normalization. 
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MULTIPLY FFLOAT: 
MOVL 


SN so 
NNO A AAA UMIUIVIVIE SESS LLL LLL LLL <et 
COO MOA LS MNO MOHOLOY PHM OMOOOOAAOAOOOOOOO 1 


a et a dd = ss ts 2 2 ie Tel 
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| 
C7 AD Ql 0 #1,OPERAND1 (FP) 3 mark the result as zero 
50 04 CLRL RO ; clear the shift count 
48 AF AD E8 BLBS ZERO2(FP),2$ 3; first operand is zero - return 
44 97 AD €E8 BLBS ZEROS(FP),2$ 3; second operand is zero - return 
C7 AD 94 CLRB ZERO1(FP) ; clear the zero flag 
50 01 iv) MOVL #1,R0 ; RO = number of senquords to multiply 
51 C3 AD 9E MOVAB roast fone, 1S ccnn'e) ; R1 = location of first factor 
5 AB AD 9E MOVAB FRACTIONS+12(FP),R2 3 Re = location of second factor 
5 D7 AD 9E MOVAB FRACTION1+8(FP) ,R3 ; RS = Location for product 
0296 30 BSBW MULTIPLY 3 gultiply the quedvords | 
50 D4 ’ CLRL R ; clear the shift count 
CB AD 98 AD’ B63 AD 1 7 3 ADDL POWER2 (FP) amit POWER1(FP) ; compute the exponent | 
(8 AD 98 AD BO AD &D 17 XORB3 SIGN2(FP),SIGN3(FP),SIGNI(FP) ; compute the sign 
14 0B AD fF €0 17 4 S 1,FRACTION1+12(FPS,1$ ; result is normalized - bypass | 
D6 re 5 INCL 3 set the shift count to one 
CB A 4 7 § DECL POWER (FP) ; decrement the exponent 
DB AD DB AD 01 8 178 ASHL #1 FRACTION1+12(FP) ,FRACTIONI+12(FP) : normalize the fraction 
04 D7 AD IF €1 178 38 BC #31,FRACTIONI+8(FP).1$ =; Low order bit should be clear - skip 
DB AD 01 (C8 179 39 BISL2 #1, fRACTION1+12(FP) : set the low order bit 
CF AD 7C 179 40 1$ CLRQ FRACTION1 (FP) 3 extend the fraction to an octaword 
D7 AD D4 798 41 CLRL FRACTION1+8(FP) : 
0S 179€ r¢ 2$ RSB 3 return 
79F 434 3 
| 
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PLY_DGFLOAT cPp- 43: EMULAT.SRCJFPEMULATE.MAR; 1 
4 4 $ $3 «-SBTTL MULTIPLY_DGFLOAT 
A ? ¢} $ Discussion 
179F 4 28 : This routine forms the product of two floeting values 
179F 4& 29 : in the internal representation and deliberately Limits the 
179F & : accuracy to 64 bits. Only the high order 64 bits of each of 
179F 4 26 3 the operand fractions is used and the result is the high 
179F 435 : order 64 bits of the exact product. The remaining bits cf the 
179F 4354 5 fraction are zero. Upon return the register RO contains the 
4 44 ? 55 $ distance the product was shifted during normalization. 
158 4 2§ MULTIPLY’ DGFLOAT: : entrance 
C7 AD 9} DO 179F 4 28 AOVL #1, OPERAND1 (FP) 3; mark the result as zero 
0 »d64 Irae 435 CLRL RO 3; clear the shift count 
45 AF AD €E8 17A5 4360 BLBS PERgG CER? $ :; first operand is zero - return 
41 97 AD 3 17A9 4361 BLBS ZEROS(FP),2$ 3; second operand is zero - return 
C7 AD 17AD 4 $¢ CLRB oe ; clear the zero flag 
02 00 1780 436 MOVL #2,R0 ; RO = number of sonquords to multiply 
51 BF AD 9E 1783 4364 MOVAB hed ya be pk Ed 3 R1 = location of first factor 
5 A7 AD 9E 17B7 4365 MOVAB FRACTION3S+84FP) ,R2 : Re = location of second factor 
53 OCF AD 3 17BB 4 66 MOVAB FRACTIONI(FP) R$ : R3 = location for product 
24 17BF 436 SBW MULTIPLY ; multiply the quadwords 
50 D4 17C2 4368 LRL R 3; clear the shift count 
CB AD 9B AD B3 AD C1 17€4 4369 ADDL POWER2 (FP) amit POWERI(FP) ; compute the exponent 
(8 AD 98 AD BO AD &D 17CB 4370 XORB3 SIGN2(FP),SIGNS(FP),SIGNI(FP) ; compute the sign 
14 DB AD 1F EO 17D 4371 BS #31, FRACTIONI+12(FPS,1$ ; result is normalized - bypass 
50 43 1707 4 Le; INCL RO : set the shift count to one 
CB AD B 1709 437 DECL POWER1(FP) : decrement the exponent 
D7 AD D7 AD 01 9 17DC 4374 ASHQ #1, FRACTION1+8(FP) ,FRACTION1+8(FP) 3; normalize the fraction 
04 D3 AD IF €1 1762 4375 C #31, FRACTIONI+4(FPS,1$ ; low order bit should be clear - skip 
D7 AD 01 C8 17€ $378 BISL2 #1, FRACTION1+8(FP) 3 set the low order bit 
CF AD 7C 17€B $37 1$ CLRQ FRACTION1 (FP) : extend the fraction to an octaword 
05 ee +38 2s: RSB 3 return 
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4 ~SBTTL MULTIPLY_HFLOAT 

4 3 

? ¢ : Discussion 

4 § : age routine computes the product of two floating values 

4 : in the internal representation. The fraction of the result 

4 8 : consists of the high order 128 bits of the exact product. 

4 ; Upon return the register RO contains the distance the product 
2 a ; was shifted during normalization. 

4 36 MULTIPLY_HFLOAT: 

439 AOVL #1, OPERAND1 (FP) 3 mark the result as zero 

4394 CLRL RO ; clear the shift count 

4395 BLBS genog see}. $ ; first operand is zero - return 

4 38 BLBS ZEROS(FP) ,2$ 3 second operand is zero - return 

439 CLRB ZERO1(FP) ; clear the zero flag 

4398 MOVL #4,R0 ; RO = number of Longwords to multiply 
4399 MOVAB yyy an bee Gd 3; R1 = location of first factor 

4400 MOVAB FRACTIONS(FP),R2 3; R2 = location of second factor 

4401 MOVAB TEMPC(FP),R3 3; use temporary area for result 

1388 BSBW MULTIPLY 3; perform the multiplication 

440 CLRL R 3; clear the shift count 

4404 ADDL POWER2 (FP) rere POWERI(FP) ; compute the exponent 

4405 XORB3 SIGN2(FP),SIGN3(FP),SIGNI(FP) ; compute the sign 

4406 MOVQ TEMP+16(FP),FRACTIONI(FP) ; insert second part of fraction 
4407 MOVQ TEMP+24(FP),FRACTIONI+8(FP) ; insert first part of fraction 
4408 BLSS 2$ : fraction is normalized - bypass 

4409 INCL 0 3 set the shift count to one 

4410 DECL POWER1 (FP) ; decrement the exponent 

4411 ASHO 1,FRACTION1+8(FP) ,FRACTIONI+8(FP) ; normalize the first part 
eat BBC { ,FRACTIONI+4(FP5,1$ ; low order bit should be clear - skip 
441 BISL2 #1, FRACTION] +8(FP) 3. set the low bit in the first part 
4414 1$: ASHQ #1, FRACTIONI(CFP) .FRACTIONI(CFP) ; normalize the second part 
4415 BC #31, TEMP+12(FP) b$ ; low order bit should be clear - skip 
4416 BISL2 #1,FRACTIONI(FPS : set the low bit in the second part 
veh 2$: RSB 3 return 
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vousb00 DIVIDE-FLOAT ~3Eb-1984 OO:a3:5¢ LEMULAT.SREIPPEMULATE.maR;1 °% (29) 
} “4 -SBTTL DIVIDE_FLOAT 
1 44 § : 
: 22 Z ; DIVIDE_FLOAT = Divide Two Floating Values 
! 5 re 5 : entered by subroutine branching 
188 44 4 : parameters: OPERAND2 = The Floating Dividend 
} : a 3 OPERANDS = The Floating Divisor 
! 5 ri ? : returns with OPERAND1 = Floating Quotient 
: rr § ; See DIVIDE_xFLOAT routines for more information. 
1852 4434 ? 
1852 4435 DIVIDE_FLOAT: 
03 06 88 BD 8F 1852 44 § CASEB a0P INDEX(FP) ,ATYP_F ,#<TYP_H=-TYP_F> 
0008' 132 4437 1$: «WORD DIVIDE_FF : F floating 
005B' 1859 4438 «WORD DIVIDE_DGFLOAT-1$ ; D_floating 
005B' 1328 4439 -WORD DIVIDE _DGFLOAT-1$ : G_floating 
QOAE’ 185D 4440 «WORD DIVIDE-HFLOAT-1$ : H floating 


a <d 


3 
Nee 


M—MOWODODNMINODLOSC PUM POW NNN Ne 


VAXSEMULATE_FP 
vive ti -- 


o- 


PSSSSSSSSS SSS SSS SLES S— 


BERL RERLL RRP EEE EEE 0 
— 
oe 


AACN BE BEES 


= 

mr 

Oo 
™m 
ad 


MEW CO OONAUE WI" OWOONAULE UP 


VINBGOOMOWSEO 
i a kd a dd dd dt ET 


5 
ating-point inotructtona 


16-SEP-1984 01:39:4 AX/VMS Macro V04-00 P 1 
iets 7 Saag ee YEMULAT. SRETP PEMULATE MAR: 1 — 


.SBTTL DIVIDE_FFLOAT 


eee Be Ge Ge Ge Ge Ge 


DIVIDE_FFLOAT: 
BLBC 


Discussion 


This routine computes the quotient of two 6 gt day values 
in the internal representation. The fractions of the two input 
values consist of the high order 32 bits of the two operand 
fractions and the rpeeion of the quotient consists of the 
Rigs order 31 or 32 bits of the exact quotient. The remaining 
bits of the fraction are set to zero. If the divisor is zero 
then a floating division by zero fault is signaled. 


3 entrance 

; divisor is not zero - skip 

: process the floating divide fault 

3; mark the result as zero 

; dividend is zero - pypese i 
3+12(FP) ERACTIONZ+12 (FP) ; normalize for division 
+12(FP),2$ ; clear the high order bit 

increment the exponent 

: oe number of longwords in divisor 


: R 
3 R quotient area location 
3; perform the division 
3;_indicate a nonzero result 
pl eg 3 compute the exponent 


dividend Location 
divisor location 


sahnunuu 


(FP) ; compute the yo ; 
3 extend the quotient to 128 bits 

; the result is normalized - bypass 
CTION1+12(FP) ; normalize the quotient 
: increment the exponent 
3 return 
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vouep0o DIVIDE DGFLOAT. ~Seen 188s Boiassse LARGE Bacto eA OO mans1 2% 198, 
18B2 4477 -SBTTL DIVIDE_DGFLOAT 
188 rh ¥ 
! rt 3 Discussion 
1 4481 : This routine computes the quotient of two Hg oda values 
1682 44 ¢ $ in the internal representation. The fractions of the two input 
1 44 3 values consist of the high order 64 bits of the two operand 
1882 4484 3 fractions and the fraction of the quotient consists of the 
18B2 4485 : high order 65 or 64 bits of the exact quotient. The remaining 
18B2 44 § g bits of the fraction are set to zero. If the divisor is zero 
: B te 3 then a floating division by zero fault is signaled. 
18B2 44 § DIVIDE_DGFLOAT: 
03 97 AD 9 1882 4490 BLBC ZEROS(FP),1$ ; divisor is not zero - skip 
00 1 1886 4491 BRW DIVIDE FAULT ; process the floating divide fault 
C7 AD 01 44 1889 4492 1$: MOVL #1,OPERAND1(FP) ; mark the result as zero 
F AD 18BD 449 BLBS  ZERO2(FP),3$ ; dividend is zero - bypass 
BF AD BF AD FF 8F 9 18C1 44694 ASHQ 4-1. FRACTIONZ+B(FP) FRACTION2+8(FP) ; normalize for division 
C3 AD iF €5 18C8 4495 BBCC #31, FRACTION2+12(FP),2$ ; clear the igh order bit 
B3 AD D6 18CD 4496 2: INCL  POWER2(FP) : increment the exponent 
50 02 00 1800 4497 MOVL #2,R0 3; RO = number of Longyords in divisor 
51 B7 AD 9E 1803 4498 MOVAB hed oe RAE: R1 3; R1 = dividend location 
38 A7 AD QE 18D7 4499 MOVAB FRACTION +B CFB) .Re : R2 = divisor location 
53 D7 AD «(9E «(18DB 4500 MOVAB FRACTIONI+8(FP) _R : R3 = quotient area Location | 
0160 30 18DF 4501 BSBW DIVIDE 3: perform the division 
C7 AD 94 18E2 $206 LRB ZERO1 (FP) : indicate a nonzero result 
CB AD B3 AD 9B AD C3 18€5 450 SUBL3 POWER3(FP) ,POWER2(FP) ,POWERI(FP) ; compute the exponent | 
C8 AD BO0AD 98 AD 8D 18EC 4504 xORB3 SIGN3(FP),SIGNO(FP) ,SIGN1 (FP) 3; compute the eo 
CF AD 7C 18F3 4505 CLRO FRACTION1 (FP) 3: extend the questent o 128 bits 
09 DB AD 1F £0 18F6 4506 BBS #31,FRACTIONI+12(FP),3$ ; the result is normalized - bypass 
D7 AD D7 AD O01 79 18FB 4507 ASHQ #1, FRACTIONI+8(FP) ,FRACTION1+8(FP) 3; normalize the quotient 
cB D7 1901 4508 DECL POWER1(FP) ; increment the exponent 
05 1904 4509 3$: RSB 3 return 
1905 4510 ; 
| 


ca 
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v04-000 DIVIDE _HFLOAT -SEP-1984 00:43:54 (CEMULAT.S RCIF PEMULATE.MAR; 1 
19 121g -SBTTL DIVIDE _HFLOAT 
19 451 
19 4514 H Discussion 
138 4515 ; 
19 2218 : This routine computes the ques tens of two floating values 
1382 451 3 in the he + Cyeresentat ign. he By Hy of the quotient 
1905 t218 3 consists of the h Ht order 127 - bits of the exact 
1288 451 3 quotient. If the divisor is zero, a a floating divide by 
1905 4520 3 zero fault is signaled. 
1905 4521 . 
1905 45 ; DIVIDE_HFLOAT: 
03 97_AD 5? 1388 $2 BLBC ZERO3(FP),1$ ; the divisor is not zero - skip 
O3A 1 1909 4524 BRW DIVIDE_FAULT 3 process the floating divide fault 
C7 AD Ql 4 190C 4525 1$: MOVL #1, OPERAND1 (FP) : mark the result as zero 
6A AF AD E 1910 45 : BLBS  ZERO2(FP),6$ ; dividend is zero = bypas 
58 AD C 1914 45 CLRQ TEMP(FP) oe the last scteurd of dividend 
60 AD 7C 1917 4528 CLRQ TEMP+8( FP) : clear the Last octaword of dividend 
68 AD B7 AD FF BF 79 «191A 4529 ASHQ rae by BE bos Hy ) TEMP+14 (FP) ; move last part of dividend 
70 AD BF AD FF 8F 79 1921 4530 ASHQ #-1FRACTIONO+8 (FP), TEMP+24 (FPS : move first part of dividend 
B3 AD 06 1928 4531 INCL PowERZFP) increment the exponent 
00 6C AD IF €5 1928 1238 BBCC #31 Mh ame pha CEs : clear a sign extension bit 
05 BF AD £9 1930 4533 2s BLBC  =FRACTION2+8(FP) .3$ : should the bit have been set ? 
00 6C AD IF E2 1934 $2e¢ BBSS #31, TEMP+20(FP),3$ i yes - set it 
00 74 AD IF €5 1939 4535 3$ BBCC #31, TEMP+28(FP) ,4$ ; clear the high order bit of dividend 
50 04 00 193€ 4536 4$ MOVL #4,R0 ; RO = number of Longwords in divisor 
51 58 AD 9E 1941 4537 MOVAB TEMP(FP),R1 3; R1 = location of dividend 
32 9F AD 9E 1945 4538 MOVAB ERACTIONS(EP) .R2 : Re = location of divisor 
5 CF AD 9E 1949 4539 MOVAB FRACTIONI(FP),R ; RS = location for quotient 
OOFF 30 194D 4540 SBW DIVIDE 3: perform the division 
C7 AD 94 1939 4541 CLRB ZERO1(FP) 3; mark the result as nonzero 
CB AD B63 AD 9B AD C3 195 $286 SUBL3 POWERS (FP) vensthos' t POWERI(FP) ; compute the exponent 
(8 AD BO AD 98 AD &D 195A 454 XORB3 S1GNS(FP) SIGNO(FP),SIGNI(FP) ; compute the sign 
18 DB AD «#6«1F)0 | «6©EO 0611961 «4544 BBS # 1,FRACTION1+12(FP5 ,6$ ;_ the result is normal sed - bypass 
D7 AD D7 AD Q1 79 «1966 4545 ASHQ #1, FRACTION1+8(FP) FRACTION1 +8 (FP) 3 normalize the first part 
04 D3 AD 1F €1 196C 4546 BBC #31, FRACTIONI+4 (FPS ,5$ ; should the low order bit be set ? 
D7 AD 01 C8 1971 4547 BISL2 #1,FRACTION1+8(FP) et the bit 
CF AD CF AD Q1 79 1975 4548 5$: ASHQ #1 FRACTIONI (FP) .FRACTIONI CFP) 3 normalize the second part 
CB AD D7 1978 4549 DECL POWER1(FP) 3; decrement the exponent 
05 14 $229 6$: RSB 3; return 
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E_HFLOAT -SEP-1984 00:43:54 CEMULAT.SRCJFPEMULATE.MAR; 1 (45) 
197F 4553 : 
4 t22e : NORMALIZE = Normalize a Floating Value 
197F 2228 ; entered by subroutine branching 
197F 455 : 
Veer 1228 ; parameter: OPERAND1 = The Unnormalized Value 
197F 4560 5 returns with OPERAND1 = The Normalized Result 
197F 4561 H 
197F £286 ; Discussion 
197F 456 : 
197F 4564 3 This routine normalizes a floating value in the internal 
197F 4565 : representation so that the high order bit of the fraction is 
197F 4566 ; one. This is done by locating the high order significant bit 
197F 4567 : of the fraction and then by shifting the fraction so that the 
197F 4568 5 bit appears in the proper position. The shift count is 
44g $282 3 subtracted from the exponent so the value does not change. 
197F 4571 NORMALIZE: 3; entrance 
3A C7 AD EB 197F 1228 BLBS ZEROI(FP) ,2$ ; the value is zero - return 
DB AD DS 1983 4573 1$: TSTL FRACTION1+12(FP) ; test the first longword 
35 19 1986 4574 BLSS ¢ ; value is already normalized = return 
34 13 1988 4575 BEQL $ ; first longword is zero - bypass 
51 D4 198A 4576 CLRL R1 ; set intitial shoft count 
50 DB AD DO 198C 4577 MOVL FRACTION1+12(FP) ,RO : get high longword of fraction 
51 D6 1990 4578 11$ INCL R1 ; Increment shift count 
50 50 01 78 1992 4579 ASHL #1,RO,RO ; shift one more bit ; 
F8 1C 1996 4580 BVC 11$ ; repeat until high bit set 
i Se ib ttt MNEGL R1,R0 ; RO = -shift count 
Mi 
1998 ra 3; The previous six instructions are a replacement for the Lhe four 
13 e288 ; instructions. We can no longer guarantee that CVTLD is supported. 
199B 4586 ; CVTLD FRACTION1+12(FP) ,RO 3; use hardware to find shift count 
1998 4587 ; EXTZV #7,#6,R0, ; RO = high order bit position + 1 
1998 4588 ; SUBL2 #32,R0 : RO = = shift count 
4 $282 3 MNEGL RO,R1 ; R1 = shift count 
3;* 
D7 AD D7 AD 51 79 #1998 4591 ASHQ R1,FRACTION1+8(FP) ,FRACTIONI+8(FP) ; position first longword 
D7 AD D7 AD 50 78 19A1 $238 ASHL RO, FRACTION1+8(FP) ,FRACTIONI+8(FP) ; get second parts together 
D3 AD D3 AD 51 79 #19A7 459 ASHQ R1,FRACTIONI+4(FP) ,FRACTIONI+4(FP) ; position second longword 
D3 AD D3 AD 50 78 19A0 4594 ASHL RO, FRACTIONI+4(FP) ,FRACTIONI+4(FP) ; get other parts together 
CF AD CF AD 51 79 1983 4595 ASHQ R1.FRACTIONI(FP),FRACTIONI(FP) ; position Last two Longwords 
CB AD 51 ce 19B9 $238 SUBL2 R1,POWER1(FP) ; increment the exponent 
19BD 459 $$ RSB 3 return 
CB AD 20 C2 19BE 4598 3$ SUBL2 #32,POWER1(FP) ; decrement the exponent 
D7 AD D5 19C2 4599 TSTL FRACTION1+8(FP) 3; test the second longword 
OF 13 19€5 4600 BEQL 4$ ; it's zero - bypass 
D7 AD D3 AD 7D 19€7 4601 MOVQ FRACTIONI+4(FP) ,FRACTIONI+8(FP) ; shift first two longwords 
D3 AD CF AD D0 19CC £006 MOVL FRACTIONI(FP) ,FRACTIONI+4(FP) ; shift third longword 
CF AD D4 1901 460 CLRL FRACTION1 (FP) ; clear the final longword 
AD 11 1904 4604 BRB is 3; finish up 
CB AD 20 C2 1906 4605 4$: SUBL2  #32,POWER1(FP) ; decrement the exponent 
D3 AD DS 19DA £008 TSTL FRACTION1+4 (FP) 3; test the third longword 
OA 13 19DD ret BEQL 5$ ; it's zero = bypass 
D7 AD CF AD 7D 19DF 4608 MOVa FRACTIONI(FP),FRACTIONI*8XFP) ; position first two longwords 
CF AD 7C 19&4 4609 CLRQ FRACTION1 (FP) ; clear the Last two longwords 
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9A 1} 1967 4610 ei ; finish up | 
CB AD 0 C2 19&9 4611 5$: SUBL2 #52,POWER1(FP) decrement the exponent 
CF AD 05 1960 4 1 TSTL FRACTIONI(FP) ; test the fourth longword 
OE 1 19F 461 BEQL 6$ 
DB AD CF AD DO 19F 4614 MOVL FRACTION1 (FP) Fraction stair) “position, the first longword 
b4 19F7 4615 CLRL —- FRACTION1+8(FP) ; clear “the second longword 
CF A C 19FA red CLRQ FRACTION1 (FP) : clear the last two longwords 
31 19FD 461 BRW 1$ 3; finish up 
C7 AD O01 0 1A00 4618 6$: MOVL #1, OPERAND1 (FP) 3; mark the value as zero 
0 10g rho RSB 3; return 
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MULTIPLY = Unsigned Multiple Length Integer Multiply 
entered by subroutine branching 


parameters: RO = Size of Inputs in Longwords 
R1 = Location of First Factor 
Re = Location of Second Factor 
RS = Location of Destination Area 
Discussion 


This routine computes the procct of two multiple length 
net @re integers and stores the unsigned product in a 
specified area. The parameter RO contains the number of 
Longwords in each of the input factors and the number of 
Longwords in the product is twice the value of RO. The 
parameters R1 and R2 contain the locations of the input 
factors and the parameter R3 contains the location of the 
area for the product. 


te 
HF 

5 ; 
AQ5 : 
A05 ; 
: 5 H 
As 7 
A03 ; 
A08 ; 
A0S : 
102 : 
AO : 
AOS ; 
AQ5 s 
A05 ; 
A05 : 
A05 : 
A08 
Af | 
aoe re ; The Algorithm 
AOS 46 ; The Te used is perfectly straightforward. The 
AOS 46 3 second factor is multiplied by each of the unsigned longwords 
AOS 46 3 of the first factor and the aligned products are added to the 
AOS 46 ; destination area. The multiplications and additions are 
AOS 46 3 performed by a series of EMUL instructions in which the two 
AOS 46 ; factors are longwords from each of the factors and the added 
AOS 46 3 operand is formed " addin corget longword of the result area 
AOS 46 ; and from carryover information from the previous iteration 
AOS 46 ; of the EMUL Loop. The carryover information is formed by 
A05 46 : adding the high order bits of the previous product, the 
AOS 46 : opposite factor for each factor lLongword which is negative 
AQ5 46 ; from the previous multiplication, a one if the previous | 
AOS 46 3 correo lLongword was negative, and a one if the previous 
AOS 46 ; additive operand was negative. Most of these contributions are 

$ compensations for the fact that the L instruction assumes 
AOS 46 i f he f h he EMUL i i 
Ao2 ree. ; that the operands are signed. | 
AOS 466 $ To show that the algorithm is correct the geior step is 
A0S 4664 : to show that the EMUL operations do not loose information | 
AQ2 4665 : because of overflow. To show this we make use of the fact that 
A05 2008 s or two's complemented addition and multiplication information 
AOS 466 3 only moves in the direction of the high order bits. Therefore, 
Age 4668 : f the product fits into two unsigned longwords it is correct. 
A 2 r+ 614 : The unsigned information input to each EMUL step is 
A08 4671 : first factor <= 2*32-1 
A05 $078 3 second factor <= 2*52-1 
A0S 467 3 lLongword from result area <= 2*32-1 
aoe tere ; unsigned carryover information <= 2°32-1 | 
é | 

A08 4676 s The output of the step is the product of the first two values 
Ape rats ; plus the second two values. This does not exceed 
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(2*32-1)*242"(2*32-1) = 2°64-1 


which is representable in two ye tenee Longwords so the 
output carryover information fits into an unsigned longword. 
Consequently no information can be lost during the EMUL steps. 


entrance 

clear the loop index 

clear a longword of the result 

more longwords to clear =- loop 

clear the loop index 

clear the inner loop index 

R6 = next value from first factor 

R7 = area of product being affected 
clear the carryover information 
clear the cell to take the carry 
include value so far in carryover 
remember the carry 

R8 = next value from second factor 

; it's not negative - skip 

; make unsigned by adding other factor 
; first factor is not negative - skip 
; make unsigned by adding other factor 
; carryover is not negative - skip 

; make unsigned by ad ing one 
; multiply factors including carryover 
; accumulate the product 

; form the new carryover 

partial product not complete - loop 
store the last part of the product 
full product not complete - Loop 
return 
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VAXSEMULATE,FP - Emu 
V04=- DIVID -SEP- EMULAT.SRCJFPEMULATE .MAR; 1 


DIVIDE = Unsigned Multiple Length Integer Divide 
entered by subroutine branching 
parameters: RO = Size of the Divisor in Longwords 

R1 = Location of the Dividend 

Re = Location of the Divisor 

R35 = Location of the Quotient Area 


Discussion 


This routine performs unsigned multiple Length division 
and develops a quotient and a remainder. The number o 
lLongwords in the divisor and in the quotient area is given 
by the parameter RO. The number of longwords in the dividend 
area is twice the value of RO. The parameter R1 is the 
location of the dividend, R2 is the location of the divisor, 
and R3 is the location for the quotient. The remainder is 
formed in the low order RO longwords of the dividend area. 
It is assumed that the high order bit of the divisor is one 
and that the high order bit of the dividend is zero. These 
conditions insure that the quotient will fit into the quotient 
area. 


The Algorithm 


The algorithm used is a variation of the classical divide 
and correct method which has been adapted for the above 
specifications. The ag ene has been implemented using words 
rather than longwords because the word version is much easier 
to verify for correctness since there are no problems with 
mi ned arithmetic operations to perform unsigned 
arithmetic. 


We let ALO..2N-1] denote the dividend as 21° array of words 
with ACO) being the low order word, ong N being twice the 
value of RO. Similarly we let 8(0..N-1] denote the divisor and 


CCLO..N-1] the quotient. The remainder will be developed in the 
array ACO..N-1]J. The algorithm may be given as follows: 


Step 0. Let I = N. 
Step 1. Let I = I-1 and ACL2N) = 0. 
{ The use of AL2N) is only a simplification, 
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f it does not really appear in the program. 

7 Step 2. Let @ = entier(ACI+N-1..1+4N+1)/(BCIN-1]+1)) and 
4 let R be the remainder from the division. 

7 { This operation is gorternes by a single 

If EDIV instruction. 

7 Step 3. Let X = b*BLN-1]+BC(N-2]+1 and 


6 
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Y = -Q*B(N-2]+b*R+ALI +N-2 | 


: t 
= Q*(b-B Nea)e1dsbeReA 1+N-2]. 


{ Here b denotes 2°16 which is the ‘'base’’ of 
the number system we are using nd b-BLIN-2)-1 
is the ones complement of -B[N-2]. These 
values are used to correct the quotient. } 


Step 4. Let Y = Y=X. If Y >= 0 then Let Q@ = Q+1 and 
repeat this step. 


{ When this step is complete the value of Q@ is 
entier(ACI+N-2..14+N+1]/(BLIN-2..N-1]+1) } 
Step 5. Let ACI..1+#N] = ACI..1+NJ-Q*B(0..N-1). 
Step 6. Let CCI] = @ and if Q@ is too large then add 
the overflow to CLI+1..N-1]. If I > 2 then 
go to Step 2. 
Step 7. If BL0..N-1] <= ACO..N] then Let 
ih eat f = CCLO..N-1]+1 and 


-N-1) - A 0..N-1]-BC0..N-1]. 
The division is complete. 
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DIVIDE: : 
50 50 01 78 SHL #1,R0,RO 3 convert the longword count to words 
51 140 E MOVAW (R{)CROJ,R1 ; R1 = current position in dividend 
54 6240 E MOVAW Re? Rp AeRe ; R4 = position above divisor 
53 6340 E MOVAW (R3)CROJ,R3 ; R3 = position above quotient area 
59 FE AG 3¢ MOVZWL -2(R4) RO : R9 = leading word of divisor 
59 ©6006 INCL Ro : form the trial divisor 
5A FC AS 00 MOVL -4(R4) ,R10 ; R10 = leading longword of divisor 
5A 06 INCL R10 : form the correction divisor 
5B FC A4 2 68 MCOMW -4(R4),R11 ; R11 = complemented second word 
58 5B «3C «(AGF MOVZWL R11,R14 : form the correction multiplier 
54 50 00 7 CvL RO,R4 ; R4& = Loop counter 
56 D4 7 CLRL R ; clear the carryover information 
51 0 cg 7 ONES: pists #2,R1 ; R1 = current position in dividend 
53 (9 7A SUBL #2,R ; R3 = current position in quot tent 
55 614 E 7D MOVAW (R1)CROI,RS5 ; RS = Location of next dividend word 
55 FE AS 00 81 MOVL gi RS : RS = leading Longword of dividend 
56 550 CSS 59s 7B 5 EDIV R9,R5,R5,R6 : R5 = quotient, RO = remainder 
58 bs oA CLRL : clear the double Length adjustment 
56 56 10 H ASHL #16,R6,R6 : position the remainder 
9¢ 1 9 BGEQ 23 3; is the value negative ? 
pe 9 INCL R8 3; yes - the sum will need odjust ing 
56 «FC are? 9 9 2s: MOVW -4(R1)CROJ,R6 : include next word from dividend 
56 656 8 A 99 EMUL R5.R11.RO,R6 :; form the correction remainder 
5 : co 9E ADDL2 R8,R7 ; adjust the second longword 
D4 1AAl 3$ CLRL : clear the subtraction adjustment 
02 SA iF €0 vy BBS #31,R10,4$ ; is the correction divisor negative ? 
8 OD AA INCL ; yes - difference will need adjusting 
2$ A ¢ AAG 4$: SUBL2 R10,R6 3; subtract the first longwords 
8 D9 AAC SBwC = s«RBR7 : subtract the second Longwords 
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4 19 IAAF 4 BLSS 5 ; result is negative - bypass 
g 06 1AB1 4 § INCL a 3; correct the Sot lent . 
34 11 1AB3 4 9 BRB 3 3 try for another correction 
56 DO 1AB5 4 5$ MOVL R3,R6 ; R6 = current word in quotient 
$6 B4 ABB 4832 CLRW = (RB) : clear the word 
6 £0 1ABA 483: ADDL2 R5,(R6)+ 3; add the current quotient into it 
6 00 D8 ABD 4834 6$: ADWC #0, (R6)+ 3 propagate any carry 
a 1F 1ACO 4835 C$ 6$ ; another carry = loop 
55 CE 1AC2 4 $ MNEGL R5,R5 i negate the quotient 
D6 1AC5 4 CLRL Re ; clear the carryover information 
Be 1AC7 4 8 CLRL R r seer the Loop index 
57 614 f 1AC9 4 7$ MOVZWL (R1)CR8),R7 3; R7 = next word from dividend 
56 5 1ACD 4840 ADDOL2 R7,R ; add it to the carryover 
57 6248 C 1AD0 4841 MOVZWL (R2)CR8),R7 ; R? = next word from divisor 
56 56 57 2 A 1AD4 4 tg EMUL R5,R Ay 3: form next word of dividend 
6148 56 80 1AD9 484 MOV) RO, (RI)DCRB : store it 
~~. % FO ef 1ADD 4844 ASHQ #-16,R6,R6 ; position the carryover information 
—3 58 0 F2 1AE2 4845 AOBLSS RO RE 7§ 3; remainder is not complete - Loop 
57. 614 3C 1AE6 4 re MOVZWL (R1)CROJ,R7 3; R7 = high order word of remainder 
3% $5 CO AEA 484 ADDL2 R7,R6 ; add it to the carryover 
02 18 1AED 4848 BGEQ GO_ON 
56 4 34 ? $2 oo on CLRL R6 ; the carry can not be negative 
83 54 FS 1AF1 rit 2 SOBGTR R4,ONES : division is not complete - loop 
50 50 FF 8F 78 1AF4 re tit ASHL #-1,R0,RO 3; restore the count to longwords 
76 f Fo thez 3! a6 s is che, corrsever nonzero ? 
3 yes - ass 
54 50 01 C8 JARD cass SUBL3 #1, RO,R4 $ he's loop index 
6244 6144 D1 1801 4 2$ 8$ CMPL (RI)CR41, (R2)CR4I 3 compare remainder and divisor 
| 1858 485 BLSSU 12% ; less than - bypass 
03 1A 1808 4 28 BGTRU 9$ ; greater than - skip 
F454 F4& 1BO0A 485 SOBGEQ R4,8$ ; more longwords to compare - loop 
54 D4 1B0D 4860 9S: CLRL RG 3; clear the loop index 
1 69 1B0F 4861 #PSLM_C ; clear the carry bit 
3 ‘ pg 1811 4 6¢ 10$: SBwC (R2)+,(R1)+ ; subtract corresponding longwords 
F9 54 2 1814 486 AOBLSS RO,R4,10 ; more lonwords to subtract - loop 
83 D6 1818 $38e INCL (R3)+ : increment the quotient 
83 00 08 I1BIA 4865 11$: ADWC #0,(R3)+ 3 propagate any carry 
FB iF 181D $506 BCS 11§ 3 another carry to propagate - loop 
05 1B1F r+ 12$: RSB 3; return 
1820 4868 ; 
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cd 
® 
® 
Condition Code Processing Routines * 
a 
® 
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In order that condition code information be usable 
directly by the code of the Emulator as well as be available 
for use in the emulated PSL, the routines which perform tests 
and compares set the hardware condition codes. The routine 
SET_CONDITION is used to move the hardware condition codes 
to the emulated PSL. 


The routines of this portion of the Emulator are extremely 
simple so the descriptions of routines are included with the 
routines. Here we will just discuss the general policy on 
condition codes within the Emulator. 
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General Policy on Condition Codes 


In general it is the responsibility of each of the 
instruction emulation routines to insure that the condition 
codes are correct. Since for most of the instructions 
presently emulated the condition codes reflect the floating 
value that appears in OPERAND1, the routine SET_CONDITION1 
is available for checking the value and setting the condition 

| 
| 
| 
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codes in the emulated PSL. In other cases these operations 
must be done in Line. 
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For those instructions which return an integer result 
the V bit is used to indicate whether or not an integer 
overflow took place. Because of this it is also checked in 
NORMAL_EXIT in order to determine if a integer overflow trap 
should be signaled. For this reason it is cleared when the 
instruction emulation is started in EMULATOR. 
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18 4915 3 
18 £318 $ SET_CONDITION = Capture the Condition Codes N and Z in the PSL 
is £318 ; entered by subroutine branching 
18 43 p : no parameters 
i 23 § : Discussion 
1B20 4926 : This routine sets the N and d bits in the emulated PSL 
18 rh 5 : equal to those bits in PSL available on entry to the routine. 
18 49 5 SET _cONDI TION: ; entrance 
98 19 18 49 3 BLSS 1$ 3; less than - bypass 
1 14 18 4? BGTR e$ 3 greeter kw 8 - bypass 
¢ A Bf CA 1824 4930 BICL2 #PSLM_NZ,PSL(FP) ; clear the N bit and Z bit in the PSL 
4A 8 18 . $3 1 pix #PSLM- “Ea, PSL(FP) ; specity” AA in the PSL 
3 ore 
4 AD oc CA 1820 49 § 1$: BICL2 #PSLM_NZ,PSL(FP) ; clear the N bit and Z bit in the PSL 
4 aD 0 ¢ 18 l 49 4 BISL #PSLM“LSS,PSL (FP) : specity less than in the PSL 
54 AD OC CA 1836 49 § 2$: Bitte ora.n NZ,PSL(FP) : + pt the N bit and Z bit in the PSL | 
54 AD 00 CB IB3A 49 BISL2 #PSLM~GTR,PSL(FP) : specify greater than in the PSL 
0 1 ; $338 RSB 3: return 
18 F 4940 : SET_CONDITION1 = Test a Floating Value Setting the PSL 
18 : 1308 : entered by subroutine branching 
18 : rh oe: : parameter: OPERAND1 = The Floating Value | 
i : reve : Discussion | 
1B3F 4948 : This routine bests the yn value in OPERAND1 and | 
Ht 4949 5 sets the N and Z bits in the emulated PSL according to the 
1B3F 4950 3 outcome of the test. The V and C bits in the emulated PSL 
1 : $32) : are cleared. 
1B3F 1988 SET_CONDITION1: ; entrance 
51 C7 AD 3 1B3F 4954 MOVAB OPERAND1(FP),R1 ; RI = focetton of OPERAND1 
or 1843 4955 TEST_REAL : test the value 
D9 «610 «(184 1328 8SBB SET_CON NDIT ION 3 set the condition codes 
54 AD 03 CA 1847 495 BICL2 #PSCM_VC,PSL(FP) ; clear the V bit a C bit in the PSL 
05 1848 $328 RSB 
1B4C 495 : 
| 
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TEST_REAL = Test all Floating Types 
entered by subroutine branching 
parameter: R1 = Floating Value Location 
Discussion 
This routine tests the floating value in the internal 


representation that is addressed by R1 and sets the hardware 


condition codes accordingly. These settings are available 
when the routine returns. 


3; entrance 

ZERO(R1), TEST_EQL ; value is zero - bypass 
SIGN(R1),TEST_GTR ; value is positive - bypass 
TEST_LSS ; value is negative - bypass 
TEST_OCTA = Test an Octaword in OPERAND1 

entered by subroutine branching 

parameter: OPERAND1 = 128 Bit Octaword Value 
Discussion 


This routine tests the octaword value which occupies 
128 bits and starts at OPERAND1 (it is not in the internal 
floating representation) and sets the hardware condition 
codes according to the outcome of the test. These settings 
are available when the routine returns. 


entrance 

initialize the index 

test the first longword 

it’s not negative - bypass 
return indicating negative value 
test the next longword 

value is positive - bypass 

more longwords to examine - loop 
value is zero - bypass 


#3,R0 
OPERAND1 (FP)CROJ 


OPERAND1(FP)CROJ 
EST_GTR 


RO, 18 
TEST_EQL 
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Discussion 


by R1 and R 
; when the routine returns. 
IGN(R1) ,SIGN(R2) 
BNEQ 


CMPB tages icatnaeasins 
BLBS Seoterant Eau EQL 


CMPL § POWER(R1$ ,POWER(R2) 

BLSS 

BGTR 3$ 

MOVL  #3,RO 

CMPL ERACTION(RI) CRO], - 
FRACTION(R2) CROJ 

BNEQ 2$ 

SOBGEQ RO,1$ 

BRB TEST_EQL 

BLSSU  4$ 

BLBC SIGN(R1),TEST_GTR 

BRB TEST 

BLBC SIGNTR1), TEST_LSS 

BRB TEST_GTR 
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COMPARE_REAL = Compare Internal Format Floating Values 
entered by subroutine branching 


R1 = Location of First Floating Value 
R2 = Locaiton of Second Floating Value 


This ie compares the two wlescing values addressed 
and sets the hardware conditio 


entrance 
compare the sign indicators 
not equal - bypa 


ss 
; compare the zero indicators 


not equal - bypass 

both are zero and equal - bypass 
compare the exponents 
condition was less than - bypass 
condition was greater - bypass 


; RO = Loop index : 
; compare corresponding lLongwords 


from the fractions 


; not equal - bypass 


more longwords to examine - loop 


; arrange an equals return 


condition was less than - bypass 


; condition is pester than - bypass 


condition is less than - bypass 


; condition is less than - bypass 
condition is greater than - bypass 


n codes accordin 
to the outcome of the comparison. These settings are availa 


VAXSEMULATE_FP 
yo4=000- = 


me 
xe 
“"e 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


SPPPPrrrrrrrrrrYrrrrrrrrrrrrrrr>,rY 
nw 
o- 


ow 
twas 
desde destestesdestestestostestestestesteslestesles[ecleclesleslesleslesleclecleclesleslestes] 
DB 69.69 69.69 69 69 69 09.09 69 G9 G9 GD GD. OD TIE a ed ed nd dd dd 
an 
o- 
ow 


PPrPrrrrrrrrrrrrrrrrrr > 


aed Se Se Se Se Se Se Se Se Se Se Sete te Bm Pete Se Se Se Se Sete Se Se Se Sete Kd 


wn 
nn 
o- 

@ 


ow 
a a a ek ed dd od dd 


& 


“SEP=1 EMULAT.SRCJFPEMULATE.MAR; 1 


TEST_LSS = Set the Condition Codes to Specify Less Than 
entered by subroutine branching 
no parameters 
Discussion 
,, This routine sets the hardware condition codes to speci ty 
a ‘‘less than’’ outcome. This setting is available when the 
routine returns. 
3; entrance 
#-1 ; set the condition codes 
3; return 
TEST_EQL = Set the Condition Codes to Specify Equals 
entered by subroutine branching 
no parameters 
Discussion 
This routine sets the hardware condition codes to specify 
an "‘equals’’ outcome. This setting is available when the 
routine returns. 
; entrance 
#0 3 set the condition codes 
; return 
TEST_GTR = Set the Condition Codes to Specify Greater Than 
entered by subroutine branching 
no parameters 
Discussion 
This routine sets the hardware condition codes to specify 
a ‘greater than’’ outcome. This setting is available when the 
routine returns. 
3 entrance 


#1 3 set the condition codes 
; return 
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1BAB 036 : RRERARAEREAAA RAE AAAAAARAEAAE AAA AAEEAAAARERERATE Eee eEe | I 
1BAB 9 $ * I 
BAB 3 : E ion P ing Routi : | 
: * xception Processing Routines * 
1BAB 36 : * . . « | | 
1BAB 9 ; * . 1 
108 35 3 FLARAAAASALAAAALALALASASASLESESESE SEES SESE REESE EEE SESE ESE EL EEE SS : 
AB Hy 
1BAB 5100 3 1 
1BAB 5101 3 Introduction 1 
1BAB 19 é ww we ewe ee ee ) 
1BAB 18 : | 
1BAB 5104 5 In order to simplify the design of the Emulator, it was I 
1BAB 5105 $ decided that whenever fault conditions were detected during I 
1BAB 5106 ; instruction emulation, that control would branch immediatly I 
1BAB 5107 3 to the signaling routine rather than using status codes to I 
1BAB 2138 3 inform some outer routine of the condition. Because of this 1 
1BAB 5109 ; some care was necessary in the ordering of operations so that I 
1BAB 5110 3 the Emulator is always in the correct state when faults are 1 
1BAB 5111 ; detected. The only trap supported is the integer overflow I 
1BAB 2116 § trap and since this condition is only signaled when the I 
1BAB 511 : instruction emulation is complete, there is no problem with I 
a atts ; the flow of control. : 
1BAB 5116 3 For each of the exceptions recognized, there is a routine I 
1BAB 5117 g which is branched to (except for access violations in which I 
1BAB 5118 3 a subroutine branch is used instead) as soon as the condition I 
1BAB 5119 3 is detected. This routine pushes a shortened version of the I 
1BAB 5120 3 signal array onto the stack and branches to SIGNAL_START which I 
1BAB 5121 3 builds the signal and mechanism orveys in the proper place in I 
1BAB 2156 ; memory and enters the signal dispatcher to search for handlers | 
1BAB 512 3 to process the condition. If the exception was a fault, the I 
1BAB 5124 : routine FAULT_RESET is called to restore the registers to I 
1BAB 5125 : their values when the instruction was started. I 
1BAB 5126 ; I 
1BAB 5127 3 : I 
1BAB 5128 ; Access Violations I 
1BAB 5129 $s ewww ewwweeeeooe I 
1BAB 5130 3 I 
1BAB 5131 ; The routines READ_FAULT and WRITE_FAULT are called by I 
1BAB 2136 3 subroutine arenenng when memory probes of read and write I 
1BAB a3 ; access fail during instruction emulat” . The register R11 is I 
1BAB 5134 3 assumed to contain the location of the area being probed I 
1BAB 5135 : and the register R10 is assumed to contain its length. The I 
1BAB 5136 5 routine tries to produce the fault under controlled conditions | 1 
1BAB 5137 : and returns if it can not produce the fault. If it can produce I 
1BAB 5138 ; the fault the the fault is signaled with the reason mask bein | I 
1BAB 5139 2 the reason mask from the attempt to produce the fault and wit I 
1BAB 5140 3 the violation address as the address of the first byte of the I 
1BAB 5141 : area for which the access violation occurs. I 
1BAB 146 3 | I 
1BAB 514 3 é I 
1BAB 5144 : The Signal Dispatcher I 
1BAB 145 4 Fee nee te Be ee Ewe ESS Se ee | I 
1BAB 128 5 : I 
1BAB 514 ; The Emulator presently contains all of the code necessary | I 
1BAB 5148 3 for signaling the condition since it is necessary that the | I 
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emulator build the signal and mechanism arrays itself and 
since there is no ‘‘back door’’ to either the signal dispatcher 
in the common RTL or the one in VMS. The version contained in 
the emulator is a copy with minor nod! fications of the one in 
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1BAB 51 § : $I 
1BAB READ_FAULT = Process a Read Access Violation Fault 3 
a 133 : entered by subroutine branching 3 
1BAB 5161 : parameters: R10 = Size of Area as ea SS 
18h 18¢ ; R11 = Location of Area being Read sz 
1BAB 5164 READ_FAULT: ; entrance SS 
07 BB 1BAB 5165 PUSHR #*M<RO,R1,R2> ; save RO,R1,R2 $$ 
52. 5B 00 1BAD 166 MOVL = R1 ; R2 = probed addres SS 
62 01 FD AD o¢ 1BB0 19 PROBER MODE (FP) ,#1, (R2) 3; is vg Bi. first byte readable ? 33 
, oo = 
FF A24A 1 FD AD 96 1BB7 5169 PROBER MODE(FP),#1,-1(R2)CR10) ; is the stast — readable ? Ss 
12 1BBE 5170 BNEQ : yes = ST! 
32 FF A24A 9E 180 5171 MOVAB =1(R2)CR103,R2 ; R2 = eliveat of last byt TE 
seg iQiFF BF AA 1BCS 3176 BICW2 #511, R ; compute address of first bad byte Te 
E6"AF 00 FB 1BCA 5173 1$: CALLS #0,B*READ_REASON ; get the reason mask TE 
12 50 EB 1BCE 5174 BLBS . ; the read went all right - by TE 
0104 0 1801 5175 BSBW FAULT_RESET : reinitialize registers and 4 oar TP TE 
5E FB AD 9E 18D4 5176 MOVAB SHORT_LOCAL(FP),SP ; shorten the frame TE 
52 OD 1808 5177 PUSHL R2 ; push the bad address 
51 DD IBDA 5178 PUSHL R11 3 push the reason mask 
OC DD iBdC 5179 PUSHL /#SS$_ACCVIO 3 push the condition code 
03 ODD 1BDE 5180 PySe #3 ; push the number of arguments 
010B 31 18e9 5181 BRW SIGNAL START : signal the Sa 
07 BA 1BE 218 2$: POPR #*M<RO>R1,R2> ; restore RO,R 
05 1BE5 518 RSB 3 get back 
1BE6 5184 ; 
ieee 218? : READ_REASON = Get the Reason Mask for a Read Access Violation 
ieee at : parameter: R2 = Address for which Probe Failed 
1BE6 5189 : returns with RO = Status of Access Attempt 
1BE6 5190 ; R1 = Reason Mask if Unsuccessful 
1BE6 5191 . 
1BE6 319¢ READ_REASON: ; entrance 
0000 1BE6 519 «WORD 0 s entry m mask 
6D F2°AF 4 1BE8 5194 MOVAB B*REASON_HANDLER, (FP) : set up the igi dh handler 
62 95 IBEC 5195 TSTB (R2) ; touch the Location 
50 01 DO I1BEE 2136 MOVL #1,R0 : indicate a successful read 
04 | of | 2134 RET ; return 
1BF 2199 : REASON_HANDLER = Condition Handler for Reason Routines 
1BF2 5201 ; parameters: P1 = Signal Array Location 
4 8 : P2 = Mechanism Array Location 
18 rf : returns with RO = Condition Response 
1BF 6 REASON_HANDLER: ; entrance 
0000 16F -WORD 0 3 entry mask 
50 04 AC 7D 1BF4 8 mova 4(AP) ,RO 3; RO and Ri = location of arrays 
08 Al D5 1BF8 9 TSTL ah 3; condition sven establisher ae ? | 
19 12 16FB 10 BNEQ % ; no = bypass 
18F8 11 CMPCOND SS$_ACCVIO,4(RO) 3; access Miolation condition ? 
11. 12. «1C0 12 ae 3 : no = bypass | 
| 
| 
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of Al Dd IC 3 13 CLRL 12(R1) 3; return zero status in RO 
10 Al AO b0 1¢ 14 MOVL 8(RO),16(R1) 3 return the reason mask in R1 
7 C 1C0D 15 CLRQ -(SP) 3; default PC and level for unwind 
QOO00000'GF 0 FB 1COF 16 CALLS #2,G*EXESUNWIND 3 unwind the reason routine frame 
50 0918 BF 32 1C16 5217 1$: CVTWL 4 6#SS$_RESIGNAL,RO ; specify condition not handled 
04 1318 2518 RET 3; return 
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1c1C 1 : 
345 § 3 WRITE_FAULT = Process a Write Access Violation Fault 
434 : ; entered by subroutine branching | 
1C1C § $ parameters: R10 = Size of Area sonny Written | 
434 $ R11 = Location of Area being Written | 
1C1C ; WRITE_FAULT: ; entrance 
07 BB iCiC 0 PUSHR #*M<RO,R1,R2> ; save RO,R1,R2 | 
52. 5B »b0 ICIE 1 OVL R ; R2 = probed address 
62 01 FD 40 9 1€21 § PROBEW MODE(FP) #1, (R2) ; is the first byte writeable ? 
1 13 1€26 BEQL ; no - orpese 
FF A24A 1 FD AD OD 1€28 4 PROBEW MODE(FP),#1,-1(R2)CR10] ; is the last byte writeable ? 
12 1C2F é 5 BNEQ r xss - bypass | 
52 FF A246A QE 1C€31 $$ MOVA =-1(R2)(R10],R2 r = address of last byte 
52. OFF 8F AA 1036 5237 BICW ‘ 3; compute address of first bad byte 
S7°AF O00 FB 1C3B 5238 1$: CALLS #0,B“°WRITE_REASON 3 get the reason mask | 
12 50 33 1C3F 5239 BLBS ‘ ; the write went all right - bypass 
0093 0 ieee 5240 BSBW FAULT_RESET ; reinitialize registers and clear TP 
SE FB AD 9E 1€45 5241 MOVAB SHORT_LOCAL(FP),SP ; shorten the frame 
52 DD 1€49 5 4g PUSHL R2 ; push the bad address 
51 DD 1C€4B 524 PUSHL R11 3; push the reason mask 
OC ODD 1€4D0 5244 PUSHL opts Aceves 3; push the condition code 
03 OD 1C4F 5245 PUSHL # 3; push the number of arguments 
009A 3831 «+151 2 46 BRW SIGNAL_START ; signal the condition 
07 BA 1C54 47 2$: POPR #*M<RO,R1,R2> 3; restore RO,R1,R 
05 1638 ages RSB 3 get back 
ieee 2520 3 WRITE_REASON = Get the Reason Mask for Write Access Violation 
\e2e 5052 s parameter: R2 = Address for which Probe Failed 
1€57 2 54 3 returns with RO = Status of Access Attempt 
\C3? 2 2? 5 R1 = Reason Mask if Unsuccessful 
1057 5257 WRITE_REASON: 3 entrance 
0000 1€57 5258 W 0 3 entry mask 
6D 96 AF 9E 1€59 5259 MOVAB B*REASON_HANDLER,(FP) ; set up the condition handler 
62 00 80 1C5Dd $260 ADDB2 =#0,(R2) ; try to change the location 
50 01 DO 1€60 5261 MOVL #1,R0 : indicate a successful write 
04 1(€63 2596 RET 3 return 
1064 526 H 
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1064 65 ; 
1eee 96 ; OPCODE_FAULT = Process an Opcode Reserved to Digital Fault 
1064 68 : entered by branching 
1064 $2 ; 
1e8e oY : no parameters 
1664 e OPCODE_FAULT: ; entrance 
0071 30 164 7 BSBW FAULT_RESET 3; reinitialize registers and clear TP 
5E FB AD 9E 1(€67 74 VAB SHORT _LOCAL(FP),SP ; shorten the frame 
7E O043C BF 35C 1¢68 75 MOVZWL #SS$_OPCDEC,-(SP) 3 push the condition code 
o bp 1¢ 16 PUSHL #1 3 push the number of arguments 
0079 1 130 4 BRW SIGNAL _START ; signal the condition 
74 23 ; ADDRESS_FAULT = Process an Invalid Addressing Mode Fault 
1675 + 3 entered by branching 
1C7 ¢ : 
1075 528 : no parameters 
1¢75 84 : 
1€75 5 ADDRESS_FAULT: ; entrance 
0060 30 1¢75 6 BSB FAULT_RESET ; reinitialize registers and clear TP 
5E FB AD 9E 1C€78 7 MOVAB SHORT _LOCAL(FP),SP 3; shorten the frame 
7E 044C BF «0-3C«1C7C «45288 MOVZWL #SS$_RADRMOD,-(SP) ; push the condition code 
01 D ice 89 PUSHL 1 3; push the number of arguments 
0068 1 1ee? + BRW SIGNAL START : signal the condition 
HS 9 38 ; OPERAND_FAULT = Processed a Reserved Operand Fault 
\eee 94 3 entered by branching 
1086 95 : 
1€86 36 : no parameters 
1086 9 . 
1€86 5298 OPERAND_FAULT: ; entrance 
O04F 30 1C€86 99 BSBW FAULT_RESET ; reinitialize registers and clear TP 
5E FB AD 9E 1C€89 00 MOVAB SHORT LOCAL(FP),SP 3; shorten the frame 
7E 0454 BF 4=3C_ «CBD 1 MOVZWL #SS$_ROPRAND,-(SP) ; push the condition code 
01 D 1€92 ¢ PUSHL @# 3 push the number of arguments 
0057 1 1583 87 BRW SIGNAL_START 3 signal the condition 
9 44 B2 3 UNDERFLOW - Process a Floating Underflow Fault 
1€97 09 3 entered by branching 
1€97 38 ; 
1097 s no parameters 
1€97 10 ; | 
1¢97 11 UNDERFLOW 3 entrance 
OO3E 30 1C97 \¢ FAULT_RESET 3 reinitialize registers and clear TP 
—E FB AD E—E 1C9A 1 MOVAB SHORT LOCAL(FP),SP ; shorten the frame 
7E 0404 oF C 1¢9 14 MOVZWL #SS$_FLTUND_F ,-(SP) ; push the condition code 
1 D ICA 15 PUSHL ; push the number of arguments 
0046 «(311 CA 16 BRW SIGNAL_START ; Signal the condition 
ie 18 3 OVERFLOW - Process a Floating Overflow Fault | 
1CA $9 ? entered by branching 
1CA 1 : 
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1CA § : no parameters 
1CA : 
1CA 4 OVERFLOW: ; engrance 
002D 0 ICA 5 BSBW FAULT_RESET ; reinitialize registers and clear TP 
SE FB AD — 1CAB § MOVAB SHORT LOCAL(FP),SP ; shorten the frame 
7E 0484 8F C CAF MOVZWL #SSS$_PLTOVF_F,-(SP) ; push the condition code 
1 D 1CB4 8 PUSHL ; push the number of arguments 
0035 1 1$88 4 BRW SIGNAL START 3 signal the condition 
2 1 ; DIVIDE_FAULT = Process a Floating Divide by Zero Fault 
1CB9 : 3 entered by branching 
1¢B9 4 ; 
1CB9 5 3 no parameters 
1CB9 $ : 
1€B9 DIVIDE_FAULT: ; entrance 
30 1CB9 8 BSBW FAULT_RESET i reinitialize registers and clear TP 
SE FB AD QE 1CBC 9 MOVAB SHORT _LOCAL(FP),SP ; shorten the frame 
7E O4BC 8F 3¢ 53 40 MOVZWL #SS$_PFLTDIV_F,-(SP) 3; push the condition code 
01 34 1¢C 4) PUSHL @# 3; push the number of arguments 
0024 1 4544 5 tg BRWw SIGNAL START ; signal the condition 
isee 3 rf: 3 INT_OVERFLOW = Process an Integer Overflow Trap 
1CCA 3 rt : entered by branching 
1CCA 4 ; 
1CCA 48 : no parameters 
1CCA 49 : 
1CCA 5350 INT_OVERFLOW: 3 entrance 
SE FB AD QE ICCA 51 MOVAB SHORT _LOCAL(FP),SP ; shorten the frame 
7E O47C BF 3C¢ eck 2§ MOVZWL #SS$_INTOVF ,-(SP) 3 push the condition code 
01 D 1CD 2 5 PUSHL #1 ; push the number of arguments 
0016 1 1e83 : $2 BRW SIGNAL_START ; signal the condition 
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late flo 
E_HFLOAT 
1¢D 7 H 
18 8 3 FAULT_RESET = Perform Reinitialization Operations for a Fault 
18 ? ; entered by subroutine branching 
1¢D 6 3 no parameters 
1¢D 6 ; 
138 rt: : Discussion 
1CD $8 3 This routine subtracts the sign-extended value of each 
1CD 6 ; of the register modification bytes from the corresponding 
1CD oe 3 emulated register and clears the trace pending bit in the 
1CD : 3 PSL. 
1¢D 0 : 
10D 71 FAULT_RESET: ; entrance 
50 Ds 1CD8 i CLRL RO ; clear the index 
51 EB AD4O 98 ICDA 73 1$: CVTB REGMOD_RO(FP)CROJ,R1 ; R1 = modifications to RCRO) 
14 A040) «6510 = C2—s«A CF 74 SUBL R1,REG_ROCFP)CROJ ; unmodify the rogneeee 
F250 OF F3 1CE4 75 AOBLEQ ,RO,1$ 3; more registers to reset - loop 
0054 AD 1€ €5 1CEB 5376 BCC #PSL_TP,PSL(FP).2$ : clear the trace pending bit 
05 1See aaee 2s: RSB 3 return 


| 
| 
| 
| 
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1¢ 3 
ICE ; SIGNAL_START = Build the Parameter Blocks for SIGNAL 
itEE Z 5 entered by branching 
ike 5 ; parameters: (SP) = Truncated Signal Array Size (mM) 
1CEE § 3 4(SP) = Condition Code 
1CEE 3 8(SP) = First Signal Argument 
1CEE 3 ° 
1CEE 3 ° 
1CEE 0 ; . 
4343 $3 3 4*<M-1>(SP) = Last Signal Argument 
1CEE 9 3 Discussion 
1CEE 94 3 
1CEE 95 ; This routine builds the signal and mechanism arrays 
1CEE 9 3 for a condition generated by the Emulator. It is entered 
1CEE 9 $ with the signal array for the condition except for the 
1CEE 98 $ PC and PSL pair pushed onto the Emulator'’s stack (with the 
1CEE 99 3 pushed array length correspondingly shortened). The otgnet 
1CEE 5400 ; array, mechanism array, and the handler parameter bloc 
1CEE 5401 3 are then constructed on the user's emulated stack. The routine 
1CEE 540 ; then removes the Emulator frame from the stack and enters 
343 rtf 3 the signal dispatching loop at SIGNAL. 
1CEE 5405 $ Notes: 1. The precise format of the information pushed onto 
1CEE 540 3 the user's stack is given in the description of 
ites rth 3 SIGNAL below. 
1CEE 5409 ; 2. The method of getting out of the Emulator used in 
1CEE 5410 : this routine is essentially the same as that used 
1CEE 5411 : in NORMAL_EXIT. 
1CEE 716 : 
1CEE 5413 SIGNAL_START: > entrance 
57 Se 0 1CEE 5414 MOVL (SP)+,R7 ; R7 = number of signal parameters 
58 57 8 1CF1 5415 ASHL oe R7,R8 ; RB = size of the signal parameters 
50 58 34 C1 1CFS aig ADDL3 #52,R6,RO : RO = size of signal information 
ESDE 0 1CF9 541 BSBW TEST_FRAME ; make sure we have room for it 
56 4C AD O CFC a8 MOVL REG_SP(FP),R6 ; R6 = user's stack pointer 
76 50 AD D 109? 41 MOVa REG PC(FP) ,-(R6) 3 push the PC, PSL pair 
56 658 3 1004 5420 SUBL RB,R6 3; make room for the signal parameters 
3 58 1D07 5421 movC R 2 (SP) (R6) 3 push the signal parameters 
6 3 be C1 1D 4 : ADDL3 #2. R27, -(R6) : push the signal array length 
6 01 00 1D0F 54 MOVL #1,-(R6) ; push code for SIGNAL (vs. STOP) 
7% 16 AD D 1D 424 mMOVG REG_ROCEP) .-(R6) ; push user's RO and 
7 60 CE 101 425 MNEGL  #5,-(R6) 3; push -35 (depth number) 
76 48 AD 00 1019 54 é MOVL  REG_FP(FP),-(R6) > push the user's FP 
76 9% D0 1D1D 54 MOVL #4 ,=(R6) 3 push the mechanism array Length 
76 6 3 1D 4 3 MOVL R6,-(R6) 3 push the mechanism array location 
76 =«C ag 3 1D 4 MOVAB 28(R6),-(R6) ; push the signal array location 
7 6=«(OO B 1D 4 ? MOVL #2,-(R6) ; push the handler parameter count 
08 AD 44 AD D ID2A 54 mova REG_AP(FP),SAVE_AP(FP) : put the user's PC, PSL pair back 
10 AD 50°AF 9— 1DeF 54 ; MOVAB B*SIGNAL,SAVE PC(FP) : store the return point 
50 4 9 1034 54 MOVAB FRAME_END+4(FP) RO ; RO = Location of end of frame 
6 C2 1038 5434 SUBL RO,R 3; R6 = distance of user SP from it 
i) XTZV e ° . = stack alignment 
a 2 EF 1 435 EXTZ #0,#2,R6,R1 R1 k ali 
06 AD 0 E 1 FO 1D4 436 INSV R1,@MASK_ALIGN,#2,SAVE_MASK(FP) ; store it into the frame 
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EMULAT.SR 
50 1 4 4 ADOL2 R1,R ; compute the parameter area location 
FC AO 3=2656SC«*SCFE a 8 1b48 ‘3 am Be sRee -4cRO) : store the pereneter count 
ipeh rh RET ; return (to SIGNAL) 
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SIGNAL = Signal the Condition 

entered by branching 

parameters: ( Described in Note 3 ) 
Discussion 


wu 
=<wvU 


WwTMwMMMMOO> « 
vuUUUUM<<es 


Following is a description of the information which 


is assumed to be pushed onto the stack when the 
routine SIGNAL is entered. The values are all 
longwords. 


Handler Parameter Block: 


(SP) 2 (handler parameter block Length) 
4(SP) signal array location 
8(SP) mechanism arcay location 


Mechanism Array: 


12(SP) 4 (mechanism orrey length) 
16(SP) user's FP (establisher frame) 
O(SP) <-3 (establisher depth) 

4(SP) user's RO 

8(SP) user's R1 


Information Not Part of any Array: 

32(SP) 1 (code for SIGNAL rather than STOP) 
Signal Array: 
36(SP) signal ree Sangen M 


40(SP) condition code 
44(SP) first signal argument 


<4%M>+28(SP) Last signal argument 
<4*M>+52(SP) user's 
<4eM>+36(SP) user's PSL 


The user's stack eginter should coincide with the 
address <4*M>+40(SP). 


We now jump to the special entry potny in VMS to start 
the search for handlers. Execution will not return to us. 


; entrance 
G“EXESSRCHANDLER 
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v04-000 DIVIDE_HFLOAT 5-SEP=1984 00:43:54 CEMULAT.SRCIJFPEMULATE .MAR; 1 (60) 
1056 497 ; RAAT AAAATAAAAAATRATAAAAEAAATAHAKAAAARAAKARERE RAKE Kee eee ee eeteteeeeeeee 
1056 5498 ; * + 
1056 5499 ; ” * 
1 ? , ; : End of EMULATES VAX Instruction Subset Emulator : 
18 2 ¢ : Ea RT ee eT TE ET 
1056 5504 
1056 5505 «END 
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$$x 


VALUE 
$1 


ACCESS 


LACCESS 
FAULT 
REAC 
DFLT 


ADDRESS 
ADDRESS 
$M 


ADD 
ARC 


STACKLIM 
“1BYTE 
“2BYTE 

DGFLOAT 


CTLSAL 
ATCH 
SPATCH 


DECR 
DISP. 


ARCHFLAG 


ESOPTDEC 
ESSRCHANDLER 


ESACVIOLAT 
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-1984 01:39:42 VAX/VMS Ma v04-00 P 
Psect synopsis 198 Bi 2gi ge Cir a 


EMULAT.SRC CIF PEMULATE.MAR; 1 


oa oa ena me oa cht | 


PSECT name Allocation PSECT No. Attributes 

. ABS 00000000 ( 0.) 9 : 0.) NOPIC USR CON ABS LCL N oot NOEXE NORD NOWRT NOVEC BYTE 
SABSS 4444 4444 ( 3 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
VAXEFPE _NONPAGED BO RRT OS ( ¢¢ “a §°} PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC QUAD 
VAXSFPE_PAGED 00001056 (¢ 7510.) 03 ¢ me PIC UsR CON REL LCL SHR EXE &D NOWRT NOVEC QUAD 
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; Performance indicators H 


Phase Page faults CPU Time Elapsed Time 
Initialization 9 00:00:00 .03 00:00:01.94 
posnans processing 78 00:00:00.55 00:00:04.93 
837 b's SE 00:01:17.29 
Syabol table sort 0 00:00:01.60 OF 180303 -82 
Pass 2 445 es SPO 00:00: 8-56 
Symbol table output 0 00:00:00.31 00:00:00.6 
Psect synopsis output 3 Sb Bh 00:00:00.03 
Cross-reference output 0: 898-09 00:00:00.00 
Assembler run totals 1371 00:00:38.17 00:02:05.37 


Toe. yorking set Limit was 2100 pages. 
bytes (300 pages) of virtual memory were used to buffer the intermediate code. 
There were 60 pages of symbol table space tg sg to hold 910 non-local and 561 local symbols. 
5505 source Lines were read in Pass 1, produci ele object records in Pass 2. 
18 pages of virtual memory were used to define 16 macros. 
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Macro library name Macros defined 
“B52 RSDUACE: SYS.OBJJLIB.MLB; 1 3 
“$255$DUA28:(SYSLIBISTARLET. MLB;2 7 

TOTALS (all Libraries) 10 


632 GETS were required to define 10 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:F PEMULATE/OBJ=OBJ$:FPEMULATE MSRC$:FPEMULATE/UPDATE=(ENHS:FPEMULATE) +EXECMLS/LIB 
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